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IDS© A— r- f -©* IC lift 

f-f-K'J'^h, msur-^-r— 
&©ra5S tor, f&j&wi* 



<*r, 33lCtt3A©7V- 
nil. ?—kfr<nv^4-vO. 

=fc I:M/©I1— ■*— -©-f 53. h 
r fe* L/»©Jft±?l : ?«l©ff So 
^©JJSMDT'-r — Kl*l\-3fc 











«XJ* + 5 ?*-.*<*> ^fc*«fc 

^oty-A7^-h^ fcyftx 

-r-;sif«ToT^A©tg^K< ^ 

*>y<-<noti)tz*\ ifo, c 

^H^^A* *i£SiJft&©(2 
¥U**r, U*fc < C0>SP§Ttt 

■oT< &*rbte (L/rU I* 

<-3*^)nr*@l*;, iD£©3£ft£ 

trims <-t 4 -t± tff»rifcott 
: f*aw.cfT < - ^ * < ^'-A(i 

SJ7LTLI^Tl)^/:)o 

fc'j:*o L**U Z«>y— AttR 
^*<v -Tvtizl fc„ i: < (-^ 

Hh>— XfA^^tZS'S a. u- 
•>3>LT5U Uo(zft<7)v- 
T*£>* < "t C-3 T < ftS-tfo M>* 
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FUKUJINZUKE 












AUS^AXJUzufct©-^ 
$ , -A*©BGM#Htt5.3.- 

M©P-K^.mQSAo »tfSf 
U<«^fc7-5>©Hft*gS 

£jB*r*» tz-^feqj|g&©r 






a— FXJVHBHMI 

l/\$>?/<-KV7h MSX2 

3800R[f£3iJ](2DD) 



b 7" ij if- K©nj£fcH o *- 

&u©*r ! 8fc&©rfrtt5i5il3t© 

£ -5 -fo $fe*'®L ^ b ft&-tf o 

^©^ r + * 5? 9 -li&titz 
©Ig^iTfcfJ (zt&v.^TL^©T*t*„ 

f£o fc jbKtztm^wvT j 

^? 4\ fcA,a N M::a.fcJ:-5 







< $rc# %■ L «t ? o c©^e>^.^ — 

(MzWgkv-kiffi&iz&.i.KK.vn 
i]\ z©£ stilt ! Lfrb^tti 

^©^ r -^ ntj 5 ;* lx\.^z>a, 
t*( *# < x s ^>*? -<F>mrf? 
s—is*Wia.LX^z><nX'To it 
#©ijj^^ £g#) ws*jwrc 

A, s ttztz'c *»\,\ i^fci^fc 
i: *.(;}« A,fc 
r *A(J^©js fot£t-<rrfu—tf 

©^^©ajtfj&t&iT < *u\, 



VIDEO 





*fl5Ufc=fc©*f 

tUort?-©/^ 

U£33. ^-^tty-Att'Jv 

^■©^XCfiB&SV RPG 
ffSS&Afc&ififcrcgOtoSB: 
f fc'o ^-ACifflilyfcA^ftti; 
©SP^14^^a€>©lcSiz:o? 
£13*Sio ilttfrb^ 1 **>-* 

xm*i (tmmtsft&tto fcran 

^ttl+teSJ l I»fl5©£5 led 5-?o 

.iot;. *ft(i»ib#A^fc 
teA,fr^t> < * 'J IffcStfcttfrfc 

oA^Jfcftt,, A,^ :ti(i? 

r trnt, m&ZTtzntzMsm. 
© r p - k * ft^iefiwaj-C'i* 

li^-*-(7)lLff:4-o 



,©©&C 




fc6 N «g^E^'^?feL^■v:SL'L^© 
^j\gj)Sn-l<^B!«E*:o ^S 
ftl I IX*^6 4 fffl©m7*A % fB* 
trtirUSo y-AKS©2/^-U7|- 
B. ^84"CB 1 #C»fcSo 3tl 

f*ft» i:L\5/3%5C^-AS3i 

S©^o y-ArttittW^S/£o 




(tT*« o t*(*x fA^Jc©•^^ 

•^n^biifBfc^fc^T-t), a 

©t#©^©i(i^Jfc'*\ fc* N 
[fT^-'-Afote»^7Ls fc*lt 
(clHS*)#(ffco J «oOlWLtt 
< T lift b tt I ^c^ 1 o 3i(»P±. 
*S.t£Zr>£/\>y-AXl3^Z& 
<TT(i'bLl^ o 

b U (^ r C b- S#¥(ziim^r 
t\C<*«f— ! j 

5^©^ r 0— , aKf^— !!j 
• 

(«CDSBB<if3's26l^^>#ofc) 



5ISPil¥1ffi 



1^14 



yz>m"jo 







BGM 



isi-<M 



33SIWS 
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dLZtK&U^Dtetf-Ke? 



*fam'\-2-3AZs f T<<K?7.T 



-5;3>x^v)\s<7V^^ji{zmmtrftz^tt(Domfc[zm 




KA,tzfrm& >l>ti:^Atzib(F> 
IWM- £ r> T N *A<7X y - S?#<*f 
^cX:S ^ft (O £ tj A o "*b & ) 

tt^btt^LTSA^A,^-!) ? 

tnmktzi *>*, *#fc#m 

£T,SaI4M§1 -2-3(2, t>£fe 

■?n#*AmT\ fc -?£*!#!£ A 

■VhtltzAstz-DTo ?&, ^(7)A 
mco«l2 ? 

6<7)T\ •^^bi^o^riitA 
TiAc7)>g*J£i/!W3 Z t (I L J: -? 

IV7)UI.M7) fc'oT=l>/N°'rJU(7) 
g!£<7)ffl<££A„ fA£mi£LT6 
£7^?7<7>£>te/L;?A,£l£LT 
■g) <&£: l ^tz o Tf-: T fc * -> fc U 




VW-otzVL'P^tzVTZt^ 
s&L< 4-o*>^l &A,T'fc#b£ 
<H*A£W#&co(2, S>££^I 

■f-Sy-f Z+a- h £ 3[e]<'b^ 

■IT**— Yvt\.^i.f)lZy z. 

7°Mz^X~h v zil^A,tzfo 

&-oTmizt£-?ib*7 ztutm 

>fc <£-lM£££tiiLT(5*r<7) 
^>*9-tt\£^ittzi), :ti 

z: o*> fcSfccj: -? TiJS*?r;££% 
^WtUi'&b&ivz)^ cntis 



*r-'< :*? *t*— i 



i)t>-to^< teitz£&tifiZ>&2sZc * *— /\'>?;H3 t 



Jil^tl-t>^$ |3>'<'fJI' MSX2 

t/ctA^/UiteT^b, Sfcfrro 

7^£;iT/H(Z<7ytf- *>*>-)„ £>— A, s 

tfj&Wiizti^-c ^sbtz 

< Xbygtltl^ gifiv-y t°>?' 

=1 v > Kii^ L T ttj ? ^ t tnt^ 

tltl, Z-(D>f-L,X\$T^ 
(t, ^NiTv^-f^., bo#ct, ^J 

tMtfrl < ^^b^ci^J: ? fcfc 

C7)fo ^nb(i^T'S-9Z^fcT- 

Xh. (J^c^-PdCim^ott/ctS 

^T^§ ££§-bii::SI;bti&*rbo 

fc (i *>#o#Ao X i ^ T* L ct o 

Cbi^dTbf^-fr 
%tfint\ zcd 

^E>7 — ^ >" 

tfXV'o< 'J D 



8800R MJ] (2DD) 





; &^:^'i.•* < 'bit^T•l^ < (7)^<j,- b L ^. l^o 

H«^b4'i^^^o fofo. >\Mo 

1 1, frfoi^tzliXti: < T"b^> 
A,tmLisbtzt^i&X\ SWf 
— A 3 0<7)x t° V— K<7)(f*C(i N 

—5 —tf1h\.^*\.^£Wk t i.<r>X\ 

4o itt)v-ye>^'fc®®(7)ran 

OfelZfctiTl^^*\ fcO^Ll 
^LT(5LA^fco T'fo, 3 0C7) 

• 



smmwm 



«fttt 



?57Y*0< 




BGM 



2^-Ut 
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SOPTWARE 



REVIEW 



WBfcbciafWWittivTWo 



04=.y?W=L-z;3y 







■^x.ibnSfclT^'bfco fAfc4- 

-r)„3#©5 <• ibui— irew 

fr bffLfrlto W&M\.^Xfrtz L ^ 



A»&- • • *l/f 6i»WJW)C • • ■ 

-HIT SPACE KEY - 



** t--'J-fcL-oA*<J*50)T\ l£^> 



7 b (^flfitetf 2 7J 8 iWc o T Z 
fc^Ao fc?Wcl^(7)V7 K — 

JLLfc*fltTtt*1\ f 1V7 h 

tzti¥—L,<nl o tzMJt&tife 

i^ ^fcoT3r€*Aiz:+^ 

7 7 ;U(7)[5^lZs 7*— S.>?Tv 

y°r$mM t %frn-tz-9r-m^t)\ 

I+400M fe tffflHfe^ 'V y'J-^i 

f^tz * tz i x te^&mtm&mm 



£27J8ffl£ BS.G1 MSX2 
£Z*>X\ W&KXiZtShL*} 

?%>tzsb0>vy\'ti~t%\ : &ts iz 

»j*!!£gy7M£*^3i tjj$jL< 

7 7 heii*ofc<Wofco 

fil tfc I ^W V 7 h <?)< -&IZ L 

Alt L\> ^7C7)[l7 7 >7 > K 

^:^^^ r >^ v-RPG^-ts^L 



£^frZmifcZ<L(Dd5&&5te%ffi®mMt£fatz-£ 



t K y 5- -C7)^ffl#Cl fc * y tz V 






L3UTf**#oJfc8o©»i*iii»C!IJT<SIC 
56a\ f05#IEHiT<Sftiroeifi©a^§^5T 



555. if?*??*!!] 

-HIT SPACE KEY - 



10 0/lQOJ:!Bt$<D?J 






fc€if#ol:t5ttrU5CDC&go 



27J8000R [Siii] (2DD) 

tztz&&<r>¥-i* t vffl&m*$. 

t&h*. ffltfz*>ovmtf%2M. 

l^t^lZttz^lo ZhlZZ 

i<ntzfrh±mz tz\*t**7* 

T-fc?, r IZ3^^PQRH(7)®W^ 

^i^ i: »BBflU<% < * -3 fc i * * 7) 
fAC 1 1 X it, ¥—2* L Whf& 
SST Set ( J iSTvTcl vT't^S *< 

• 



5^P^1¥M 



Ji^'tt 



&3V4&J 




BGM 



^^'jTf 



6RIM9B 
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- V 









4ia0>V7f(£T0>2:to Ifrafc 



Z a: IZ £**> b fc RPG^<7)T***o 
rh^-Y^-f hV->IVj<7)(5-5(i 

fcfc; 4-iiOTfc(m#ftsiJifi£^-5 



- tutmnzis&iz&tzmmA t 

C CO ^ — 2) — (D +> ^'-tz > * tz 12 




;LT< 5HL^«Mj£©§&£^# 
ik»*fcjfc -fc^B^©^ 3*, 

©HSrlKs £l^fc©„ ^©£ 

His &1&>MM£r?ftW£&£ 

3\ ?7 7<9* « £'£$UfF L tz 
h(Dtz a -JL fl(7)77>=f- 

^f:V7 Ki^*^«f*^-5 Lie 

MX5L\iXLtr>tz ^r©^ 

HI 13ft mftb^ZAtZK t 

tztzX^tz mWttr>tzT¥-t£V 

fcrfKC { J Sit LT I ^ «t -5 T\ ¥ 
A<Siif^p ^P>^aC7)(J-9Ci x 

xft-o tzt^-i <nfz*frh%-&¥\ 

^K7?x«fct/frt>L^lA£«-g 
frtfuittiif, /tew— fWfci: 




^©HcS/uMfebo fc 6 U < s 



W*l-»!lL%l-t.N*tJ4- , ). , "*tj<'«> 

mm a*a«4tt«fcive 

*>j:-oi:8il*3iffc«i;A<-taft\ '<5 



JiKl HltiUfl 








T ^Ti^tfMiStCfcSA'- 










flEK^IK 



iz&-z>iLhi£ttiZs #n*g:frr3©iifc^6<JiJrct 
«o«&r©, AV3>v^s©tfT ! 7rv -g-nt-ru-^v^ 
s©tf7»7ra©^*So 3©fcfx7MciK®2;ttrn§ 
^-Ais^gur 31 ^oL^nt^f^ts^nfcfe©!** 

9£o «8tt, $*-A©IHS€«fl-U&#&, 3A©£© 
^fc*>#u^>i>^iJkfc3U<v?h©fl¥fa;£Ur 
UC^-fll^ ^•3fcZ<!:©35S$'-A'Cfc* JiS&o 



£V7h ^J^tii/^D^voi.1 



tKU7^- 38 # 3800 R DK&] 




feuitA-w-fit^x-iii.^o!! 25 






* r~ss- 






-. 







P^'r 



W 



•vs&y- 




*1 



y 



imo)mm$±z. *s© r ^i j udi \mit \ w±* @n£#f £ over 



ttffi HaaJIK 4M ROM/JMWB3B* 7.B00R 



• 3 iKJfifljT-U'* >"+>-— fcTX5IJ£fflrtJHt>Sil»E]+L«(01 1)241-4900 [**»S1»SS(0177)22-5731 **H(0188)24-7000 [MK»E]'.$&(03)262-91IO MtlS»E]SfiS(025)229-1141 
[MB*E]±R6(06)334-0399 [iSHJiEJSUj (0899)33-3399 I rt.«%EMI H( 092) 71 5-8200 *£ffl(0944)55-4444 &*;S(0994)72-0606 S«(0994)44-3977WJi.^llSfc/;i^P^iS:LTft')*t; 



I 







•J7^^h-'J-& l J7A'*>-Vo 



HI 



SOIIDMf 



V IW X*-? *$M 72 



c KOIMAMI 1990 






'.. ■ 



EQUIPMENT SELECT 






gj|{ggppgl^ia|| 



fj^wrzz 



**t =flOl SsSBT<tfflE»EB#1Sffl]3TaE5 *I5SSI£ t561 *BSflfB4>il5ffP3£BJ4T@e3gl85§ *L€^3gRff tOBQ ft«m**IE^tl*ffi5T@eS9§ «ra^^3r 



»MSXV-^IJ7'X*-infflfl|T-T = 

] S(gm^«lE^WETS8S30§ 



KOEI 



z&ffiztok&mi-. row 



■PC-880ISHW*/PC-9BO. 
X680DQ8fl«*^S- I0.8QOR/wiL .. - 

♦ PO-880iMC*;:Ucr 

CD:H29E-20009:2.9B7^ 
CT:26CE-l009:2.678PK«ii) 




► MSX2(4>#ROMK&) : 1 1 ,800R/MSX2(tV:*?)S) :9,800R 
witMt^VK^xT: 1 4 ,200R/I 2.200R 
►/N>K7-y*:i,860R(f^)/#^K7-y?:9IOR(8iia) 
»-y-5>K , 5i7' CD:H29E-2000i:2,987R(«iii)/CT:26CEI00i:2,678R(«iii) 





^tffrO 



»MSX2(4j'#ROM)iS) 1 1 1 ,800R/MSX2(x-f^^R5) :9,800R 
with-y-O>KOir:i4,200R/l2,200R 
>/v>K7 r 'y5':i,860R(etii) #-fK7-y*:9IOR(8ii&) 
► *f>K'5i7'CD:H29E-20003:2,987R(fiiJi)/CT:26CE-l003:2.678R(fftia) 




£>UM 



*-9-flK 



►MSX2(tV*?)K):8,800R 

MSX2 (4>*'R0M)ifi) /MSX (2^#R0MRS) / 

77"5a>:a-9,800R 
»/\>K7-y:7:i,860R(8ii&) 

#-lT7'y?:9IOR(ft&) 




fl» 



•MSX2(-7 v -f^S'liS)/MSX<2>*'R0M)i5) 
■S-l2,800R,MSX2(4>WROMtS) 1 14, 
77ia>:9,800R 

• /\>Ky-yi>:i,860R(Stii) 
yj--I'K7 , -yi':9IOR(mii) 




>MSX2 ,5^ (7 i '-r^i'/4>*'R0Mf!5)/ 

MSX(2>»ROMKS)/'73'Sa>:*9,800R 

with-it 9>K9x7*: 12, 200R 
► /\>K7'^:i,860R(fiiii) 

tf-fKy-y^giORdaii) 
l+T-OVKOxT 7 CD:H29E-20002:2,987R 

(&&)/CT:26CE-l002:2,678R(fti£) 




tuna*, m&ti\ m)H\ n w&mw 



REKOEITION GAME 



dbttMme 

f'J|n||!M^'k.'i-: 

MSX2ROMKJX9S11B 
DISKJK 9E28H 




IPC-880ISRI-XK/PO-980I . 
/X68000/FM77 AV- R-50/M500 9 , 8DOP5 
FM TOWNS : 

WUIrtf5>F'7i7':iZ,ZOOPi/l4,200R 
7r£3V-9E JESSES 

CD:H29E-Z00W:Z.987R 
CT:26CE-I004:2.678R ' 
(■•-***#)* 

• REKOEITION GAME* 
fc - ltmtttfl4-BoXl-l-f««L*t.P-Jl--V-f>? , y-/.A 1 fc-7.±A-i£' J .-'J«)i3 



QOUNDWAnC 




THE BEST OF 
KOEI Vol.1 



• SSJg/tf'JK-./l.ttitMt 



CD/KECH- 1 003 : ¥ 3 , OOO(miA) 




tt**'j;^i.BGM* Vol.2 

fgfi<7>M/*»H£ 

CD:H27E-2008:2,78in(8tii) 
CT:24CE-I008:2,472R(&&) 




TfcSSCf-'Jv^L-BGM* Vol.3 

= H&II/*S*r0>JSl 

CD : KECH- 1 00 1 : 2 , 700R (fitii) 



DOOKO 




«£*:£ *"— A»7— yi/p- 



*— K> — A<7)#$&}ft, stf — K**— A0tf A-tA 3>t°J.— 
7X % i'Ai/f'f-, $C®A45>^:£'>M^''^'i''-''*Vi / X\7 

• AB$lH60K-2800R(8i&) 



|f-U.1:> < t-e'^:KOEIC)ei8ttll»tKiHI'b-»UT>.>*T=B044-6l-ll00(/\-73>JSLffl)-n04«-6l-8000(77-5=lWffl) 
|fi*«U.4®/s-Va>>av7'-x/f-hT.Kifi<i:B!ffiffi* ; 'i-i.>«&IJ.li3i-S«-«IS#^-Ba«£«aSfr^ieu 
iH*«%*a*<7)±.. aa?Ei;a*»ai:Tfe*Lii*TSI.'. «. »H. *-?>K'?x7'(ClVCTJiltt) IJ»«oT«'JitM„, 

fciS«n»j£- m-Kffiic- ;±S:<fc?i.-,(i'3-KSfi«x : -nyK-;H*Stfttt) 



H 



No Copy 



raigrattuM 



t*j?g*t 



M£rt4 



T223 flt;fim^bEHS*BI 1-4-24 Tel.044-6l-68BI(ft) 






*%&&&& 



AM/J 





Humming Bird Sof4 









MSX 



fP£W§7,800pg 



ir<(itoT|i#Ki3^l&^£=l>ki-?-^-A 






C Kadok awa shoten/H.YASUDA & Group SNE 

E53 "^-^tt7^*-<wift«rro 






>•?•* 7*qiE<DJt, 5**»iBi/:(i«ffiSS(^RS8-303340) 1= 
3°o4-»ni/i4«%-fciXiJTS>.> 



^Jp Humming Bird Soft 

=F530 *B6?fi:ibl2ES«*&2TB2»15-§- 






CROS5MEDIE 



* 




HUIIo 






=l-7(Dlt547K-ib^f 



:JJ7;b^3D®®mii?^/3Nn5d'Jb7^^U«)S77>^ii(D±*^t^hV7K 







5;-f>^7'~^7'5 , 5X!fifil1B7t\— JU"*-:^^ 7,10.12.13 ■1z>S-5'>KUa-7.12.14.17" l Jtfi510s18"'<7;i/-tf— ?7.8.18" A'^$>7.n-^4x17 

■ sa:p:7^-;i/Ki8"*^^>M8»*y*>ii "n^uwAi2 ■ *r J p"j7.)\>'WJX'1)\i~3'0 = 5TJ\%K\— ;i/ ■ ytf— S'V^^x^lB/tv— Jb 




SFWW»^«3JW 



ES32<^y *^JK> ■ PC-8801 SR um ■ PC-9801 VWKM ■ PC-9801UV B» ■ X68000 
SI ■J-3100~>J-X-AXVS/-V IBM-PC/AT/XT s¥8,800 w«> 



Ucensed from Accolade, Inc. in Conjunction with JPI. C 1988, 1990 Accolade, Inc. C 1990 VICTOR MUSICAL INDUSTRIES, INC. 



iM 







^7 7-f -y ^jR/j^K® 






t » 9- 



7)»u. jha«. stt*. (*m. «a 



J iSiis*c-*aro»u;. ass. «««. aw, ma-mmim 

= TI5I *jR»jkfrETS;*fe-l-7-9 u-a-£A,3F j j., «#« H t r *BiT'aiis» J *T. «=s'J< - 

B I T 2 S03(479)4558 FAX.03(479)4 I I 7 gHtt ) 

C3 MSXV-?(±7'**-<nBtfST-t 



3. ? 14 fc«I£-C &03-479-4558 



msx s&^zusmmmt:!? 



Z>%— "^EEIl (CHARGE- 1) 
-».T.ji.t-» •• amiss 



KfiBCfttsABMfc, oeium»miT*t inu 
n'lacA'i, *OTe<i:i3*<nW£tfi*H4Srt<»Bii» 

-/BMl-iTl"*. "»£Lt. »-5»'t»nn5 :« 
>-5W*S«ni:XIiSI80'M. BJ1WM* 

>'xevi<ax<t. wmkiuitm at«i:»»Tv 

t'4 «i:OBT*rt»'J.iJ«-.t»-)£.B««l*B£ 

*i*ntm»'ft». zoiiBBHluw/fcTVaMcA 
4 maiiuaBn'ttiTK'i. 5»-77--3A.Ki«ims 




r j-iz}w\—y-tmmj 



Z>7— 1>— >IH (CHARGE-5) 



t»( Q »7l— 1— >IB£U?- 

^O/ b-3A6Bm*TU— •'l'3'*fflTa>'J* 
-IL.»£?-»?<»lU2->0>»n-t,!i» 
■ «««.?<?' a^-3Jt-'i.ftin'P«IBiiAS -nE^-o 
l;H«»l<J'*'<.£*>^a-£l'AIJ'*Li.'ET*4 HBtfJ 

i:UBB<n7»> , i-?-.fr<£itf«*'J> , i. ifc->«>y- 
?/>hmtii\Tu-.a.i (,*s.nTi't ««'.rii«.f. 
rjijui'Oinij'iiiin-ti'i "<-a?-f»i:uit-i«. 

t=Ufc •J-J7-r«£a>0 i .-».»U;»lMBi:j-.T 
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120 OUT AC, &HCF:OUT AC, &HC0:OUT AC, &H7 

130 OUT BC, &HF :OUT BC, &H7 

140FOR 1=0 TO 500: NEXT I :OUT AD, &H8 

150 ' 

160 OUT BC, &H4F 

165 GOSUB 240: OUT AD, &H35: GOSUB 260 

170 GOSUB 240:P=INP(BD) : GOSUB 260 

180 IF P>31 AND P<254 THEN ELSE 170 

185 A$=CHR$ (P) 

190 GOSUB 240:P=INP (BD) :GOSUB 260 

200 IF P<>0 THEN A$=A$+CHR$ (P) :GOTO 190 

210 PRINTA$:GOTO 160 
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230 I=(INP(AD) AND &HC0):RETURN 

240 GOSUB 230: IF 1=0 THEN 240 

250 OUT AD. 0: RETURN 

260 GOSUB 230: IF I<>0 THEN 260 

270 OUT AD, 8: RETURN 
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1. Tr 


- Pi (a 




2. T r 


- priori 


rt 


3. T r 


-PJ-P-K 




4. T r 
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5. T r 
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6. T r 
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- Piid^x f-*S.S 
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SUISSE 
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: MS X7«i>V 


l*)S*«!SLSt". 




ifflSsu 




: ffOJZfil! « 


B«#^ 




: 1 7- 2 4 


'iSHiRff 
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MlHT<7)£#;tT<&&£, eft 
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# 1$ K P »( 6 x 10<7>23iHM@ < 
N«7yy7£LTfcz?)£ft^ 

^o z ftfii lammv ^y -7';!)\ 

1*3 &**%*#<%* :?CiC*ej: 



zttr£ft<7) 
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tz± tJofLT ifX^Ciai ^ 
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is, »«ufc:7n^A*i«7ttt7*j5aA/r*rfcii 




*t^i«.i/K«f»ii 



(7)7*-? £fMT 5 ^P ^7Af: 

n-s. * t\ «>-) c. 1 smujl ( ! ) 
trtrwtu r—tttj&cnm^X' 



T-f xfiziz—y'tzz t bXZ 
%:\.vnx\ *e<7)fcufc*MSX<7)®i 
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AJ3WrtA.*5<B 



LIST1 



Msxr4 tfywyyvywi 



1000 SCREEN 7: SET PAGE0. 0: COLOR 15, 1, 1 : CLS 

1010 FOR 1=0 TO 15:COLOR=(I. I¥2. I¥2. I¥2) :NEXT 

1020 SET PAGE 1.1: COLOR 15, 3. 3: CLS 

1030 SET PAGE 0.0: COLOR 1 5, 1 . 1 

1040 C1 = 1/9:C2=1 :L = 1/7:G=. 7:MN=99999! 

1050 M0=-. 5:M1=-. 8:BP=1 

1060 DEFFNG(V1)=M0*V1+. 5* (Ml -M0) * (ABS (VI +BP) - 

ABS(VI-BP)) 

1070 DEFFNX(V1. V2. IL) = (G* (V2-V1 ) -FNG (VI) ) /CI 

1 080 DEFFNY (V 1 , V2. I L) = (G* (V 1 - V2) + 1 L) /C2 

1090 DEFFNZ(V1, V2, IL) =-V2/L 

1100 V1=. 1 :V2=. 1 :IL=. 1 :H=. 01 

1110 XX=V1:YY=V2:ZZ=IL:K=0:H=. 01 

1120 FOR 10=0 TO 128: SET PAGE 0. 0:CLS:FOF 

TO 511 

1130 SET PAGE 0. 0:FOR 1 = 1 TO 10 
1140 F1=H*FNX(XX, YY. ZZ) 
1150 G1=H*FNY(XX, YY. ZZ) 
1160 H1=H*FNZ(XX, YY. ZZ) 
1170 X3=XX+. 5*F1 
1180 Y3=YY+. 5*G1 
1190 Z3=ZZ+. 5*H1 

1 200 F2=H*FNX (X3. Y3, Z3) 
1210 G2=H*FNY (X3. Y3, Z3) 
1 220 H2=H*FNZ (X3, Y3. Z3) 
1 230 X3=XX+. 5*F2 
1 240 Y3=YY+. 5*G2 
1 250 Z3=ZZ+. 5*H2 
1 260 F3=H*FNX (X3. Y3. Z3) 
1 270 G3=H*FNY (X3. Y3, Z3) 
1 280 H3=H*FNZ (X3. Y3. Z3) 
1290 X3=XX+F3 
1300 Y3=YY+G3 
1310 Z3=ZZ+H3 

1 320 XX=XX+ (F1 +2* (F2+F3) +H*FNX (X3. Y3. Z3) ) /6 
1 330 YY=YY+ (G1 +2* (G2+G3) +H*FNY (X3, Y3. Z3) ) /6 
1 340 ZZ=ZZ+ (HI +2* (H2+H3) +H*FNZ (X3. Y3, Z3) ) /6 
1350 NEXT I 

1360 PSET (K. 120-XX*25) 
1370 SET PAGE 1. 1 
1380 VS=INT(XX*3. 2) +7 

IF VS>15 THEN VS=15 

IF VS<0 THEN VS=0 
1410 PSET (II. 10). VS 
1420 IF STRIG(0) THEN 1420 
1430 K=K+1:NEXT II:BEEP:K=0 
1440 NEXT 10 

1450 BSAVE "ksound.dat", 0. &H7FFF. S 
1460 END 




1390 
1 



'J* h 2(7)1110~l13C«T(i, "*&> 

5 T.(7)^l^cJ; 1 \Z Z ZT1J, VRAM_t 
tZ&Sx-^l^Z^'e, PSG(7)U 



.Z80 






CSEG 






NRDVRM 


EOU 


0174H 


WRTPSG 


EQU 


0093H 




LD 


HL, 


LP: 


CALL 


NRDVRM 




AND 


15 




LD 


E. A 




LD 


A. 10 




CALL 


WRTPSG 




INC 


HL 




BIT 


7. H 




JP 


Z. LP 




RET 






END 





10 SOUND 7,&B111111 
20 SOUND 8,0 
30 SOUND 8,15 
40 GOTO 20 
10fJT'(i, PSG(7)Uv*?-7 

dUTUS,, 20ffT'(ix l^i?*? 
- 8 #*4*ftLM£ \Z 6 30ff 



T*IJ|S| \Z < M£ 1 5tzf££ L X U 

15£T'<7)16l»fc3<7)T\ SlMltt 
Htt4 t'v h"9->-/'J >^*<5Tt| 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1 140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 



LIST2 



SCREEN 7: COLOR 15, 0.0: CLS 

CLEAR 10, &HBFFF:DEFUSR=&HC000 

OPEN"GRP:" AS#1 

FOR I=&HC000 TO I +20: READ A$ 

POKE I. VAL r&H"+A$) :NEXT 

FOR 1=0 TO 15 

COLOR = (I. I¥2, I¥2. I ¥2) :NEXT 

GOSUB 1350 

SOUND7. &B1 1 1 1 1 1 

A=USR(0) :A=USR(0) 

GOTO 1070 

DATA 21 . 00. 00. CD. 74. 01 . E6. 0F 

DATA 5F. 3E, 0A. CD. 93, 00. 23, CB 

DATA 7C. CA, 03, C0, C9 

FOR 1=0 TO 511 STEP 64 
FOR J=0 TO 63 
LINE (I + J, 0)-(I+J. 127). J¥4 
NEXT: NEXT: RETURN 

FOR 1=0 TO 51 1 STEP 64 

FOR J=0 TO 31 

LINE (I+J, 0)- (I + J. 127). J¥2 

NEXT 

FOR J=0 TO 31 

LINE (I+J+32. 0)-(I + J+32. 127). (31 -J) ¥2 

NEXT: NEXT: RETURN 

'A* AXA 

FOR 1=0 TO 511 STEP 64 

LINE (I. 0)- (1+31. 128). 15. BF 

LINE (1+32. 0)-(I+63. 127).0,BF 

NEXT: RETURN 

BLOAD"ksound. dat", S 

RETURN 

CLS 

PSET (10. 

PSET (10. 

PSET (10, 

PSET (10, 

PSET (10. 



30) :PRINT#1. 

50) :PRINT#1. 

60) :PRINT#1. 

70) :PRINT#1. 

80) :PRINT#1. 
A$=INKEY$:IF A$="" THEN 1410 
A=VAL(A$) :IF A=0 THEN 1410 
ON A GOSUB 1140. 1190. 1270. 1320 
RETURN 



1 :Jir VIS" 

2:*V**A" 

3:A**aA" 

A-.m" 
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SfcJ! ■§■■?(& SCREEN1.5l£o^ 
TBKI3LT#fctf£\ *HL < T*> 

fetter -5 fr>fc&t&\, sfttitt 



C* fc-9— JfSCREEN1.5^E— K<7) 

■t-scREENi.5i:-r* z £ &t*.tt 

&hs SCREEN1^JoT7°P^7 



? <7)C\ I /c(i £ ^ £*T'# T ft I \, 
^LVtzLT-fM-fS*; 






Listl B5Isl*ra)^P^5A 



1 CLEAR 1000 

5 DEFINT A-Z:DIM MBS (4) 

6 SCREEN 1: WIDTH 30: KEY OFF 
10 HP=100:ST=10:DF=10:DX=10 

20 EH=RND(1)*100+50:PRINT"EH=" ;EH 

30 ES=RND(l)*10+5: PRINT" ES=" ;ES 

40 EF=RND(1)*10+5:PRINT"EF=" ;EF 

50 ED=RND(1)*10+5:PRINT"ED=" ;ED 

60 GOTO 2000 

1000 '-fern/ 37V K *V*7 

1010 LOCATE 20, 1: PRINT" CF} 99W 

1020 LOCATE 20, 2: PR I NT" CE) Zf fr" 

1030 LOCATE 20, 3: PR I NT" CM] 7*7" 

1040 LOCATE 20,4:PRINT" CO 74 f A" 

1050 LOCATE 1,DY+WY:M$="37VK >" :PR1NTM$; 

1060 C$= INPUTS (1) 

1070 C=INSTR("FfEeMmIi",C$) :IF C=0 GOTO 

1060 

1080 C=(C + l)/2:M$=M$+MID$("FEMr',C,l) :G0 

SUB 3000 

1090 RETURN 

2000 DY=0:WY=18 

2005 GOSUB 10000 'VI 1 ill 

201 if GOSUB 1000 

2020 ON C GOSUB 2500,2600,2700,2800 

2030 GOTO 2010 

2500 M$="7W 3«>r*r:G0SUB 3000 



2510 M$="$X! 9' t-y 9 7*X5kH !" : GOSUB 300 



2520 RETURN 

2600 M$="7t?A ~r f v9\" : GOSUB 3000 

2610 m="yljy 77>J37I/? !" : GOSUB 3000 

2620 RETURN 

2700 M$="7*' 7*7? **' X.f-it4 !" : GOSUB 3000 

2710 RETURN 

2800 M$="t-t **fW !" :GOSUB 3000 

2810 RETURN 

3000 'W *sxvya9 fr-fV 

3010 LOCATE l.DY+WY 

3020 FOR 1=1 TO LEN(M$) :PRINTMID$(M$, 1,1 

); 

3030 FOR J = l TO 10:NEXT J, I 

3040 PR I NT : MB$ (DY) =LEFT$ (M$+SPACE$ (28) , 2 

8) 

3050 IF DY<4 THEN DY=DY+1 : RETURN 

3060 FOR 1=0 TO 3:MB$(I)=MB$(I+1) : LOCATE 

1, I+WY:PRINTMB$(I) :NEXT 
3070 LOCATE 1, WY+4:PRINTSPACE$ (28) ; 
3080 RETURN 
10000 LOCATE 0,17 
10010 PRINT" . 

10020 FOR 1=1 TO 5 

10030 PR I NT" I " ; SPACES (28) ; " I " ; 

10040 NEXT 

10050 PRINT" ' 

-" ; : VPOKE BASE (5) +&H2FE, &H1B 
10060 RETURN 
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8SHS/->«iS«)S 



£. ffH] £ T*<7) U * h £ c7)^5E,£ 
C2x 1010~1040m:iT#oTWr 
=iv>K<7)3tJjxf£K£x TWb 
L^ci: .i,Tfc "bit #*>***«£ 

7lZ s LOCATE^T'^f &ftlM 

^t-x *fti:T*=]V>K£Si7F 
LTl^:tiC, £'J&x\-f7V 
— \*— <7)*-=— J^s Si^TF. 
^-t+^Z^lZL/Co *ft*T4000~ 
4050^r^T*(7)Ht7*JU— 3-> PI* 
X'tzfrh, TV— i»— <7>U"<;i/& 
Wn-tm&T) LVSk #f/cH1tVfT<75 

t^^zi — JU"t& J: "9 CLT^f: 
■?; 3»r&-3THP(t:-y ^if 
>h)«-?7zJf£-*K 400(tfr£ 

fc TV— F— <7)*t— ? 7.(iJE L 

*>ft<frHx 400C«T^'bC7)-it7*;U 

<T)tzrt£\ LV^HPt l^fc:3££<7) 
£ic x *ftWc7)»(ZftA£ft 
Tl^MSrlf^Lx $>bC^c7) 
£$ Jl3£3-ft *^-7. £U < -2A> 
i^?ttl^„ C titft'7 LX. 

ffl^Tfc, g|7p:£IEL<f£ 
0/c#>ftc7)/--* 

£ -5 C t tfh Z> «fc teo HP1 000 1 ® 
tf-3 tz<nt>\ i ^# ft l J hpi on ft !D 

£ $ ft t'tzc mktf'Jtti: < ft -? T 

LZit>mzfrb, ^ii^iii^ 

m7FLX^tz(7)X-U, f)(7)^^^ 

£— Jg^UT'-LTx tJUtftfr'b 
fe ? — gft^?i+&c7)fc®W;:;te 
?ZX\ :H/:tM^-^ 
£AtlTfcW£x T^/U^ifr)^ 

3-ft*^— *#>& lt < n& a: t> 

lfrmz H*lJT'L<fc 



L*fe 4 rxn =1 v > K fcS^:: £ T* 

% *®&* is v-r t- a " *■ tf ^ r *> 
ask it*a£5-$ft&#&Ti> 
ft i ^t\ is o " fc $gf % " izm 

iiAqLT#-fct7)a<U*h 3 (iU 
«6c7)251C«tT\ ftc^gbM^TV 

RM'h *<7)M£7V— V-c7)M 
ttT'tiJ itzb(D£ TcnSUBcfc t -o 

X. fWfSSA'OT'^r)/:^ 

Z>-ajm±tf&%^xz.i:tz 

S«rri)tr.i«[c7)«bgi±(ED)tr,y 
U— f-<7)gbI14(DX)£ Jt^* (7) 
C *AND" ^^"T *IF THEN" 

ED>DXi;*#U*&£\ ED=DXc7) 

§ (ED- DX)(7)fil^ v -f *--^LC ft 

^« U X fc x (ED > DX)c7)a5^-T*ti 

febn-c l * o *^x ras«fti^ 
ttxttiZizWiZfrbtoo 

-fn^'^A(7^m.t)\ m.< 2520 

t^7 c i: ft<7)T\ 9tigti$$M&£ 

fcHLs ^c75253CWrT'il®^7 7-y 
vzL?-t+Tl^ U-5(ix Z(DW) 
^It BASICC7) PLAY5lT*iil L X 



List2 Xt 


-m 


mn- 


rj 


10 HP=10jBT:ST=1jE 


f:DF=10:DX=10:LV=l 


GOSUB 4 


000 












1010 


LOCATE 


20, 


10:PRINT 


" CF) 99W 




1020 


LOCATE 


20, 


11:PRINT 


" (E) -y V 




1030 


LOCATE 


20, 


12:PRINT 


" cm ?*»>" 




1040 


LOCATE 


20, 


13:PRINT 


"en r^tA' 




4000 


LOCATE 


20, 


1: PR I NT" 


LV 


" 


LV 


" 


" 




4010 


LOCATE 


20, 


2: PR I NT" 


HP 


w 


HP 


n 


" 




4020 


LOCATE 


20, 


3: PR I NT" 


ST 


" 


ST 


n 


" 




4030 


LOCATE 


20, 


4: PR I NT" 


DF 


" 


DF 


" 


" 




4040 


LOCATE 


20, 


5:PRINT" 


DX 


" 


DX 


" 


" 




4050 


RETURN 











List3 i\j-^-ammm) 

2510 IF ED>DX THEN IF INT(RND (1)* (ED-DX) 

/DX) THEN M$="*>1! f *-¥ f 7flnW ! " :GOSU 

B 3000: RETURN 

2520 PLAY" O4T250S8M100L32A#AG#G 

2530 FOR 1=1 TO 4 : COLOR, , 8: FOR J=l TO 10 

:NEXT J : COLOR,, 0: FOR J=l TO 10: NEXT J, I 

2540 AT=INT(RND(1)*ST/10)+ST 

2550 AD=INT(RND(1)*EF/10) 

2560 IF AT-AD<=0 THEN m=" 9' W 9 79^Vf 

A \ " : GOSUB 3000 : RETURN 

2570 M$=STR$(AT-AD)+"*' 4>Y/ V t-V 1 79^9 

!" : GOSUB 3000: RETURN 



T'PLAYlfcT* h ^ h ^ h tttfiii 

25Amit^SLWi^"^, 255C«tT' 
I J "WMife" *, * tl *' n AT t AD 

ti^&mzmfeLXs tmix 

i^-So ztteffl<»tzib<nbo)fri: 

AT^ibAD^!|V.^fct)C7)^ ^X— 
i><rMt LX^Z>(Dtz 

ATli^V— ^-<7>Jfe*2j(ST)£, 
III C3S»*%-10T*J-3fcffii T'CT) 
SL^?rin^fcfcc7) — ^AD(i, ft 

WTO:?: (ef) %■ 1 0T-fJ -3 fcfil i x 
o>nMo ^izz<n*m3&& z. 

T% Jg^t LT, AT-AD(7){S^' 
WTf:o f:«^-(i *y^— S> ^ 



7^i7Ut< !.*> 0cfcU^#^ 
-3fc*&lC(i*(AT-AD)#-T> h 
/^-y?7^i^ !* tx SI 

Xb. ZtltzUX'tt. tztzSv 

|g(Zttx HPc^liti^bLT^ft^ 
(7)fc* ^CT\ #ttSO<-*fcA 
fc x. Tx itt*<5E«a tzi t*c7)®ei 
%ft-oXfr£io ZW^—iXn 'J 
7x h 4(Z?iicL/-c(7)^\ *(7)7°a 

?T N -S^*&Lfcitt«rfllJLfc 

ft ^ =t -? T-liy- A ^ LX^cUlL 
/cftl\, ^< *b^*»A,2:i«[A < 5E»ta 
^I^fFo/cilZ^T-x ^-co^i: 
<nz t fe#x\ft < *>^i^{tftt^ 
tz\ tzx\ itt* < 5E^^A^:(Zx 
S fclSIf L i ^ittA^^r S «t •) iz L 



r^-royn^S^i:^! 111 



£LXmt7lzlXfrti -7° 

fco "3HTC* 2006*tC *?■*# 
777U?!" fcl^^-yfe- v 



2030}tB, iWt'yh'f-fVh 
** MT-K-o tzh, 21 OOfif t-MH 
tfl&Z. 1 1 (C^Mo 2100^7^(1 

Tl^-5o 2/c, 1 m<7)i£3£»;b 

<7)&£I#203afTlcMoT# /z t # 



List4 7b-t-0Ix"f ^l© 

20 EH=RND(l)*100+50 

30 ES=RND(l)*10+5 

40 EF=RND(l)*10+5 

50 ED=RND(l)*10+5 

55 GOSUB 3500 

60 GOSUB 2000 

10 GOTO 20 

2006 M$="tW 777k* !" : GOSUB 3000 

2030 IF EH<=0 GOTO 2100 

2040 GOSUB 3500 

2050 GOTO 2010 

2100 EH=0: GOSUB 3500 

2110 M$="f*? W* !": GOSUB 3000:GOSUB 310 

: RETURN 

2570 M$=STR$(AT-AD)+"*Myby f f-V 9 792.9 

! " : GOSUB 3000 : EH=EH-AT+AD : RETURN 

3100 LOCATE 15, 22: PRINT"*" ; 

3110 IF INKEY$=" " GOTO 3140 

3120 LOCATE 15,22:PRINT" " ; 

3130 IF INKEY$<>" " GOTO 3100 

3140 LOCATE 15,22:PRINT" "; 

3150 RETURN 

3500 LOCATE 0, 0:PRINT"EH=" ;EH 

3510 LOCATE 0, 1 : PRINT" ES=" ;ES 

3520 LOCATE 0, 2 :PRINT"EF=" ;EF 

3530 LOCATE 0, 3 :PRINT"ED=" ;ED 

3540 RETURN 



List5 mm)\r-*>%BM 

2050 GOSUB 2900 

2060 GOSUB 4000 

2070 GOTO 2010 

2105 PLAY" O5T250S10M50L32CEDFEGFB 

2900 M$="fV W*!":GOSUB 3000 

2910 IF DX>ED THEN IF INT (RND (1) * (DX-ED) 

/ED) THEN M$="^! f W 9 Wf ! " : GOSUB 3 

000 : RETURN 

2920 PLAY" O3T250S8M100L32GG#AA#B 

2930 FOR 1=1 TO 4:C0L0R, , 4:F0R J = l TO 10 

:NEXT J: COLOR, ,0:FOR J = l TO 1*:*EX1 .1,1 

2940 AT=INT(RND(1)*ES/10)+ES 

2950 AD=INT(RND(1)*DF/10) 

2960 IF AT-AD<=0 THEN m=" 9' W 9 W-f ! " 

: GOSUB 3000: RETURN 

2970 M$=STR$(AT-AD)+"*M>f/ 9' i-v 9 W! 

" : GOSUB 3000 : HP=HP-AT+AD : RETURN 



V-7')ls—3-> ffl.(7)XT—9X$: 
i&m7F£itTfrtz itz, ttiiz 

iz >y h L T l ^ 20~50fr<7)||7F§l5 

t%tzmz££'ibT^% ZLX 

5S^fX'Z(D350(^f^h(DVy'^- 
=f- > £ GOSUB^^-T-nft/tb L T 

t LT*5fcc7) g fift* 3 204Ctfr 

<T)J \° =7 * — 9 — (TJ&Wy- ) t) s h h - 

gosub 350O0 ■W~?$* s &>m8k 

Jt#ti&#feft-> 2010^11^-7° 

21 00Wb<7> *fflmtMfW& 
T->imLT(5Ll^(i, Nfefefcy 
h #4 > h (EH)£ (H££ Litf 
c£„ z\<r>9m&\tixtsfrt£\.* 
ts EH(7)ifct)<^'{i-MZt£Z>ts:A, 

m^xmmmxsT*??* 

T RETURN fefcf U:i Xf <*13 
t>t<r>9imzm-r>XLir>tzh, 

it i & < mm e^ $ #fc / v-te 

(73fiiA<tbTLS-5o tZX\ X* 
-*.*-(DAt>ft-hy-7')l'-3-> 
£ 31 OOWbCffc^* GOSUB LT 

SCREEN1 Mt 3 >/ \— h f % t # 

*fc, 200(Hr^'b<7)^iiI^-t7-7' 
;u— 3->lzt£itz(?)X\ 6(Wt13$) 

o/cGOTO 2000^l^-)SI5-7>fcv^ 
tlf HGOSUB 2000tzS3ELT*J 

l^Tfe 3 •) L fc fc - ^ %y&Gffl 
Kofc.ia:cfc£<7)£f 



MiXgtchl %<ntbtx-itM 
<mM%tev+LXi*%zffi"*£s 

mzj\^--f$itx\.^ 
—■fts mzys-i>*htzxtz 

Vir&nS&mt. 257fffTi;&& 2? 
(AT- AD}£ t» a itT'ItW L T t> 

f •& ^ lt s *oo*-r > b /? 
n-i>^^tiUzhtx\ mm 

5„ :OT7"p^7Am 

EH=EH-AT+AD 

EH=EH-(AT-AD) 
i:1"S^#tZSo T*£k *73 
*o It S I *T1f-JMF ittztel & 

$T, ZCiT'-Ct>RS7>»HSi 
(iHlTlfc, L^L^-(7)SS/c^ N 

ittfeUiLfci^fc*(t^ tvit*^ 
ay^m)^— j->^^r>x^i i 

U ^ h 5 *< 292(«TJ^Citt<7) 
IJZ^U-^ > ^r Xtlfc 7°P ^7 A 
Bo # U 6voT^ 2900~2970ff £ 
X'W$&0y$&flr*?->s U ^ h 3 
(7)2500~257CWtST'(7)7V— 1 7 — 

*LIST 2500-2570*2: LXH®(X 

%-2900*^«bH^JELTU ^->o 
g^(Z*LIST 2900- 2970" t LT> 
it-3Tl^gP7>^tt*A*LTL^ 

Afcttx 205C«TT'2900^T^'b<7) 

tlLT, ^(7)206C«tT-7V— \»— 
C07.7 1 — ^ Tx^jfU— 5^ > ^rHf.5?o 
^ LT2070*T"C2010fir*>*£;U— 7° 
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3W35>fl=W 



U WW3*> P4SWg*— ?** 

£M£*>l7fcfo O^T1Z2105ff"C\ 
ltt£glJLfc*:#<7\ *>ioi:^: 

MVU *»*&'' CO&^ISrfF-S'^ 

-altT#*3o 
fc, i^ip.izi^T<&7 l cco&uu 

<ntni^ cftA«#g*4^fc*o ^ 

i^^b(5i:\ i$(f(z< <&i,>£ 

4 CO*: I 7 £\ 'J 7. h 6 CO i -5 <C4& 

£ f 261 OfrT* ~ 1 £ T'COgUfc 

£(=(,£, ^<7)262fffrT1^ 7°U 

— ^-cogbltfe7\ M^KStllil 

* L Ts *itt<7)gb£t&r b 7V— V 
-\ 7 -COgbl14T'SlJ'J N O^b^CO 

fit * x-coi Lift frli o fc tM&^H) . 5 

U±.tz^tzifr&" (J N jtttfifrtj 

:oi^ ®#Jfc$Q3A^;Rc* ft 

$E L IMfr t> L fttt l *J7 *r» «tt 
HT'O < "OtWr— * £T*o *>3> 
tfe0>fttlV&J&3o i-frx-i^ 

LXfrX, fcT^fcL^< 'J <3 

£:£&(£ zcoyn^Acoft 
W&0>%£1& 7V-^-co$61 

14(7)*> J: a £' 2 IgCOgSSSfefcitttf 
JloTUf:^ (ED-DX)/DXCO 
ftKMIU* 2CKZ. r>H)3/A 

<nmmx'£ h u z t ftj/4co« 
x-mfbtizfrutzo zftiz^b 

(z N &fbtt&&&)7/\Q&tr 
tt5£, 7/40CO5t?rei&lfbft£ 

^-C0$bl1£C0 3fSC0j^;:^ j& 
l7*<bft*flM:7/603:T&S„ * 
fc> 1. Sfltoffc 7/30 o *> i o fcj&lf 



&c7>a<|»J£rfKc-i: t>J&7 itft£\ 
HHlz v -y 7°&ifcl ^Tj&lzilii L 
T oTt^SEfz^ofcbv £fc 

HilLT^-5>z^(zLJ;To 

if&H.'U— 3->t) < Z(D< bl^u^t 
t* &-bio£$Tslgl^Z^£ 

£ -fit. 7tiBe&f r ?y.—*i—£ 

IZ±£ K?jt-V*abtzz.Z *'& 
Wy-W <r>mk*-hax.Xfrtz 
^ftTXv&CO U * V 7 o f:^/:2ft 
X-T'lTL^t 

2007*7*^ ittaSfc£i&SK&Lrfr 

(IT < SJf-^co&i.iE, m<nWMk 

-\*-CO 3 v > KiHW^T o £ 
tfUT> jtt<7)3aHQSfc*7fc7J: 

ftx, ^mmwrnzxtitztei 
tfhb Ltiwfrh Lft#U 7 £ % 
^i^l7t>££\f^'3# N fr£ x o fc 
coTx ***> £tJfc;L"f> w# 

j,"ot:i:T; z^ LXMz a 

^LT, fc-5U£ OC02555fp!r 

<M§«r>~ 4k>MU i/ioocosi^ 

T\ ItS L fe ATCOf I (O | fj ijl^e 
*)*x 2lgrS«J:-) ULTIMO 

iv.* y fit, -foi:^L<7V-T" 

i \, 7° p ^7 A*<g < ic ?.(:Lf; 
^T, ttfcfr, -9-yjU— ^> 

isstZfrhfrbti: < fc U * -5 %<nx\ 



List6 ioEreafcr«H«f» 

20M DY=^:WY=18:NF=^ 

2#25 IF NF THEN GOSUB 3100: RETURN 

2610 IF RNDQK.3 THEN M$="^y ^aM^!" 

: GOSUB 3000: RETURN 

2620 IF (ED<=DX) GOTO 2640 

2630 IF RND(1)*(ED-DX)/DX>=.5 THEN M$="y 

fry 77'J37I/^!" :G0SUB 3000:RETURN 

2640 NF=1: RETURN 




List7 tt»tt«iRfcoaai» 



2007 IF DX<ED THEN M$="3f7^' $*' 7X;KX- a 
•77-' ^yf^^!" : GOSUB 3000: GOTO 2050 
2555 IF RND(1)<.01 THEN M$="t7t7/ W*! 
! " : GOSUB 3000 : AT=AT*2 



4-^ * x b ^^ t If y ;u~7- >C0 'J 

iz t&%£, *IS*tzsl*<7llSLT ^ fe 
co u*— h ffl$ftco(i Lo:Xfc 4 

SrMJS^coUT* fc x <f z X' fc u ^ 
7b x b, 7£Um#*Mlz;:^L/cU 

Itpz: -5 i^t^ifXtz^ ^e Ltz X 
i Kh<nX'b. h £ T*g*ftz$:iz 



jtoz^iz^^^^oio 

X RPGb L $*<WT < % £Z^ti 
tea fnST'U, ft-WiS-ntX- 
<r>y°n?=7L.$:\t)LX, rt^^r 

$•£ U tzttWt «-iiinT*# 4 J: -7 
Kh, auw&LXfrxtoo tn 



Si^UXh 



HP 

ST 

DF 

DX 

LV 

EH 

ES 

EF 

ED 

MB$(5) 

WY 

DY 

CCS 

M$ 

AT 

AD 



7V-V-0M& 

7b--f-CD®S14 



5A 



ZIV>KA7)ffl 



ir^b-^U^h 



1000 
E000 
2100 

2500 
2600 
2700 
2800 
2900 
3000 
3100 
3500 

10000 



PY>KiIiiR 



7^xA^^i5©g 
SS©iS«©^g 

7A-7.A73&5 




^'tcp^! 113 



^. &mA&tttpii>izmwisZi\<zt:[z[,£z>o m 










£% MSX£i&fc<7)fci.^rfrt>L 

A£*|A,Ti>SE N 1gW±tf& 

Z £Mt§L\,*U^ fcffclM/^ 

<nb\ V s 7<tz.ty$.<hl;i< s fro 

? -3 ¥ < *Mt:: A3 c £ H L 4 a o 

fe h Tjzt^s. ? C 14&2j fcfljffl) 

feo let £#«, SgySLfc 
fori£#£*£ o * < *a*-&*3-&T 

■ 3V>S0J 1 



\Wlr>xm ->X^iK<T)tz 

isbiz, fmizmwLxtizi 

L fc y f * tt A »J n tMk&*£<niZ 
f^^lttld P > t°a-^ - 

fe*>^>^ frktitfftnXK.^ 
MSXlz fc /- < $ A,<7)LHA U p **•> 
^Xi^ltttz tztz.lt, f— 

#— *\ *=■?—* yy>?- 

7P7t-f-f^^v £tzA{z£ 

ivbW>SJ3i2«B§£ Wft* fe(7) 
^T-A(0S)<7)1«:^-P(i, ^COJlifl 

-f3#/L/3^ MSX-DOS(-fc^ 

MSX-D0STi4C0N, PRNtl^^ 
tz^XDT-'/ \'-f777 -f ;U*<^ro± 
&#%•*#— h 3*lTU*0>fcf o 



A>copy con test, dat 

"Z 

A>dir test, dat 

A>type test. dat>PRN 

A>copy test, dat CON 



EORSA2J 

:tB7D 




P •?> Ktfll 1 fc-^T^T^ 
tz^tzfrK? CON^PRNCOU 

X(D<y—i>ti\ tz\^tz\.^freb 
tzZttztBOo osycoNfci* 
•5<73ttx A73<7)t#l4*-tf-K 

*<-? T I » 3 Xmtl fi U * t£(Dtz 

itzPRmt. "f*)>9—izr>ttifi 

tz\ i;^tiz<7)(i*szfc % nul*> 
AUXtt £*<7)t-V \'< 7. ij<3b%> e tz tz\ 

Msxxtemmi~-y#- h $nx 
mmxmtiti^^ity' 1 ) >?- 

LXfrUTntzfrhs yyOW 
*—~7>%>9u — -Xtf$b^t*?t£ 

S AfS*AW^<7)gH(i»ltTi^^ 
•5 O- i: ~xn t > h (i J/o U ^V u 

l/0£ 1^7 (75(4 lnput/0utput(7)Bt 



^y#x.«tt^ci:/f P ^'<7° 

P^*7A(7)A73HLT^-5 N oj 
y yp ^*7 AMU/ \ < 77-f>^ 
5 1 < «tt6/^i: #*T fc *d ^n(4, 

UN IX^ MS-DOS i: 1^-9 0S14, C 
<75l/Oy^VUy' h^HilLTl^ 
5U MSX-DOST'fcL^fry-y- 

T'*{f/cTYPEP v> Kfit ^ <7>~ 

g|5i:t^X.-5/c^7o PRNiri^T-* 

A'-f7v7 7-1'^i: test. dat<7)|*3§ 

?x, 4-*xift^LT#fcy^ 

r-<xmmxmti *ttiLX$&i 

$nx^z><ntz -p*y«l*Affl 

73^l^(7)(4, CllfcltSi/lffltfJ 
Xfrtz<F>X\ ##HLT(5Ll\ 
^L'Tx zxrffi&TJtfrhT*- 

*%$&&&. ^mmtuzm^m 

XL£oAb^Z>£^i < hi\ 
itX's $i*<V->7"MZ^r>X 





.it 

^(7)U^h 1 ^£5^ ZZ(Z 

(*fgetc( x fputc( )t^imm < 

^LTfcCio *1*fgetc( )<7)4& 

* h u-A^«b 1 £^£I7c.&;a 

^-^-iLT77-fJ^h l J- 
£*#£?*. iH'Mil^LT, St 

*Cfputc( )<7)«ggfc*lt£\ ^ 

Lfcl :»*■»# ffl-r'fci^z 

zzx\ f\$£c:7 7"Ou:* h y 
t< JU* h '/— A£i.*-50)lSl*-3 
- ft( J7 T -f JK7)AtiJ7} fc-SfSf 

?<7>z £ #0)fcf o 77'f^h'J 

-A(i, 77<Jl/K-7'>Lf: 
1*7 ^^HSofcAfci^rc 



^>7o ::ti ft&zmtzmmx 
izKzntfo Cite. cxit$)h 
JU*r*3o#:£LT^5 ^<7)3 

1 . stdin W^-Xt) 

2. stdout ^*t±]73 

3. stderr ^igx^— tHTJ 

* h 'J-Atiii^ stdinli*— # 
— KK> stdout stderKi^E" ? — 

0|A^ 'J * h 1 #£*7 ^7i* 

* •) „ Z (7)7*P ^*7 A(i *EORZ& 

& i -pseptA**^ 1 t!$iM 

## fcfcf *C £ £*t # 7 fc<7>£<7) 

yp^A^iftt^i:, A7j 

7DLTUZ^ U *->*-£*¥ 

-rtzmzxji uzSz&wh^Tr^ 

5 £ # (i/z (p > h p -;u*-£ 
^AttjEttteTTSo 



#incluc 
main () 


e 


<s 


tdio. h> 






int 

while ( 
f putc 


c 
(c 
(c, 


= f getc ( 
stdout) ; 


stdin)) != EOF) { 


} 


} 






■ LUM 




#include 
main () 
{ 



<stdio. h> 



int c, i : 

for (i = 0: (c = f getc (stdin) ) != EOF; ) { 
if (c != *¥n') { 
f putc (c, stdout) ; 
i++; 
if (i >= i 70) { 

f putc (' ¥n", stdout) ; 
i = 0; 
} 
} 



} 



U*S2 



,s 5lx 



zxzzfrbtf-s-ficnjfcmMt 
&*. 'J * M XUXtlLtzr- 
***<&** wars fcTttf-?*: 

x-r^^a^rAnT^ctOo u* 

h2£Jt,T(5lA\, Z.<T>-fu7=7 




\AWxii(om% 



MSX -1 




D 



MSX -Tl 















7UvE— T<<7s0 




\X 



2&sSA 





+-/K-K 



etc. 
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*<&$**## o £*?***£ JS"3„ 
**lU*» 0* h<75|#BJl£LT 
l*Zi«, c<7)(i£Hii£l^^£Stfr 
ii*Q?tiTl^*\ Z filial 
?-ffl<7)££!tfc for^t(7)«|nTi 
G fcftALT*D*8fbLTl^o 
* LT\ TOAT^b 1 S^Sfe* 

*¥n* i: t ^ (7)(i N ^^T3t^^<7)( J 

ZZT'(20i:lJ % 7°P^7A(7) 
+TgWT%-*IJfflir5ZfcT\ J^ife 

Wi:5:c7)S?f^^j: r> X \.^<ntz\ 
TAB^P> h P— Jbzi— K^JlU 
§ 1 4 z vyXWittt 1 1 < Wr*s. 
^tzbi %ft%<hV* h 9T^ 
r>tz 4 7 »=» 5:^p- K(7)¥iJ^j: 
^iUnLTi^, «ffil«:SSfbL 
Tt^ < Z £ X\ &*.% V—MZU 
iX^<tz*>l 



p,<y,-«? 







?T, CZT-SPACE-TABSQfc 

^l^T-miLT^^o U * r- 3 £ 

^U^^fcLn^^tao forlfc^ 
switch^ £*<7)M»;ii (Z o I nT 
Wx fcofr*roT^6^-?fr<b 
OU£LT&, ?0>(S£rCfeC4t 
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c = fgetc(stdin); 
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stdout 
stderr* 
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#include 
main () 
{ 



<stdio. h> 




int c, i, j : 

for (i' = j = 

switch (c) { 

case "¥n" : 

while (j != 0) { 
fputc (* ', stdout) 
j--: 
} 

fputc (c, stdout) ; 
i = j = 0; 
break; 
case ' : 
i++: 

if (i >= 8) { 

fputc ('¥t\ stdout 

i = j = 0: 
} 

break: 
default: 
i++: 
while (j!= 0) { 

fputc (' ', stdout) 

j--: 
} 

fputc (c, stdout) ; 
if (i >= 8) { 

i = j = 0; 
} 



/»Vk 



c = fgetc (stdin)) != EOF; ) { 
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AXistl > TEMP1.DAT 
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TEMP2.DAT 
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#include <stdio. h> 

main () 
{ 

int open_f lag, i ; 

char buf [256) ; 

FILE *fp1,*fp2: 

for (open_flag = 0; f gets (buf , 255. stdin) != NULL;) { 
for (i = 0; buf [i] != '¥0": i++) { 
if (buf[i] == "¥n") { 

buf [i] = "¥0" : 
} 
} 

if ( (fpl = fopen (buf. "w")) != '¥0') { 
if (open_flag ==1) { 
fputs (EOF. f p2) : 
f close (fp2) : 
} 

open_f lag = 1 : 
fp2 = fpl : 



} 
else 



if (open_flag == 1) 
fputs (buf, f p2) : 
fputs ("¥n". fp2) ; 

) 

else { 

fputs (buf, stderr) ; 
fputs ("¥n", stderr) : 

I 



/* copy stream ptr */ 
{ 



return 0; 
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LT*USfo LE[X7)PpT®#-^^ 

(7«x\5%£ii, *~y;w*- 

(7)[t]a:[A]?rf^lNS-r o 

$•*¥ L T < tz£ t \ ¥>7?- > tf> 

ofrz ^ u , MHK^ i: oiisi 



-7JU*-<7)0£}f LT < fc-$ix 
•7'— ytt^^^'ttiT, 'JU-ti 

offm u * r*\ z; <7>*g-(ira 

fwo iz«-5 i *: fe#x"bn^r 
i fc 'J \s-mi3t>ffimzj&mx-B 

§T-Li7o 8>£l*ft&m:1t0) 

W&)£* 7°ny7i>^T7z 
>y ^ * <; e y %■ i n 7 z: i: tz^j: fj s r 
z tvfy h <nfflto%®£¥$ t'X\ if 

U-^ L < «|*9 T (5 L l wfe (7)T"r o 
^fc\ 7t^#T'fc^P'b-t+LS 







fo 5 ifeMME 6 (f 1 &2000R, 
5«cJil±.ti 1^(Z-^#1800RT' 

iz'iyt^ito 
fc =f501-11 

9c ppmm m 



PA0-7:OUT/ PB0-7:IN/ PC0-7:OUT 



10 'MSX QUIZ MACHINE 

20 ' by Taka. S- 

30 OUT 3. &B 10000 1| 

40 CLS 

50 ON STRIG GOSUff 500 

60 STRIG (0) 0N 

70 PA=1 :OUT 0, PA 

80 PB=INP(1) 

100 IF PB AND 1 THEN PC=1:G0T0 300 

110 IF PB AND 2 THEN PC=2:G0T0 300 

120 IF PB AND 4 THEN PC=4:G0T0 300 

130 IF PB AND 8 THEN PC=8:G0T0 300 

140 IF PB AND 16 THEN PC=16:G0T0 300 

150 IF PB AND 32 THEN PC=32:G0T0 300 

160 IF PB AND 64 THEN PC=64:G0T0 300 

170 IF PB AND 128 THEN PC= 128: GOTO 300 

180 GOTO 80 

300 'Hit 

310 OUT 2, PC: "Relay control 

320 PLAY"V15O4L4B18S0M6000GV0" 

330 S=STICK(0) 

340 IF S=1 THEN PA=PA+1:G0T0 420 

350 IF S=3 THEN PA=PA+1 :GOTO 400 

360 IF S=5 THEN PA=PA-1:G0T0 420 

370 IF S=7 THEN 600 

380 GOTO 330 

400 'CORRECT 

410 PLAY "V15O4L64BGBGBGBGBGBL4S0M7000GV0* 

420 OUT 2.0: 'Relay off 

430 FOR 1=0 TO 300: NEXT 

440 D= (PA¥10) *16+ (PA MOD 

450 LOCATE 5, 5: PR I NT PA 

460 OUT 0. D 

470 GOTO 80 

500 'LED count clear 

510 PA=1 

520 OUT 0, PA 

530 RETURN 

600 "WRONG 

610 PLAVV15O2L4S12M40EV0" 

620 FOR 1=0 TO 300: NEXT 

630 OUT 2. 0: 'Relay off 

640 GOTO 80 



10) 



126 /*-K-7 
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v:7S2 




2/f^ffl*»^Ur,*CDf^fiB*K*KATAKERU"C* 



AKH fffcHOTN 



BLOCK 




LUP»/E»S1^ MSX2 -VRAM 128 K^FM^jI 



p y 5 (OT7'p v * A Wth *h 
(i 6 i Ma £ (7) * — v ;i/*<*> S„ 



T5o Zft£$gUi§LT7'P<y:? 
A HHB**TL* <*>«■£, 

®® tz^^ 3*1T l^ *MV"<7) 
E]gtf!U1sl4£$-fr*£, 4-?&$ 

*->r<;ciiUr"e<*, t>*>^, 

^XL£o(Dtzt>\ lRli;fe7)7n 
'y^Ai:afcofc*^JA, B, 
fc *(=$&*. *fe, 7'P-y^B 

Aftt\ ^tiUf-f-^BJftS, 











!*flw»fwa«7^^-^« 



♦I 





u<o#©?a'j/2#SMDtL5o 
ft©*-v;u€7p^^<z><hc:5* 

&a— v;u*-©£j!r;££#ur» 

/&ic:7py£#i5ng-r5toW- 




rfi* 


n 


»m«j, 


•i 'i. 






*|l» 


''I v 


ifr 


hu. 


,\l, I/, 


v 1 - 1 '. i'"6 


-i\ N "^r 





#©7p * ^/MMSE/u^ur* 
^n[z|i)D0©7P-y^^^fcofe 

*£x ±8B©7p->^3b^*r<n 






D 
□1^ D 

D R 

S - s 

D 

a 
Don 



oaaaaa 



JSH±©"MV©*m(ClK£«sn 

***§£ "BLOCK IN"i^^ts 
tir» E®©«lcS§4o©7P-y 

©i$[5li;g©7P'y^lcafcSi 

^B©^p-y^/j^^r<nSo m 

S«3W)6nSo fcd*& #©^ 

K©^*C«©^P^^tf$5i:-r 
So =&U a©7a-y^^5S(z^o 
r, *©3BJI&i*©7P'j/2*$t* 
5»SB\ »«56CfFS«Ur7P^ 
^£;!U *©»CfS«JRtft*liL^ 
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Software Contest 



&©ti, 4i<n-7ny?B%ffll2 

?mm* £ ac>fc«>* - ^ at* 

S^zSo &5:7*P-y^B©g© 

*aM.±$, fefe^A^ ::©££ 

■5 ©T*ft£^LWftteVl-m\ 
^iltixCOffiE&z/P -y * A fcH 

a v 5 A £(5Av7>7n -y ? B T 
tfLTfc < £ g©fu©7*P -y <7 A 

(f 6©T\ li-?zi ^WiWto 

®®<7)EgPS£ &£ *NEXT*<7)*§ 
PCH; 2KCBT < 3"7'p >y ^ B 



a— vjwj* xctfrt < sWtt, 

7£_h©*NEXT*©i§fiJHl&57*P 
•y?A <r 7?©_L *_b(7)7'P-y^ 
A <r 7:7©:& 1£Y<r>-7'U"j<7i?n 

%{#&* U&CL& < Tfcuufcf 
6?,, y-A(ZfltnT#Tx site 
tfTA<< %fr*^te$mmT$ 
fc«bx Z©~-A©^7FlZfcm£^> 

£fc, <r— A&&4"W«&fcl* 
fc # I tWTfr-ZWTo Z HX'j< - 

4-[U^^-Lfz r BL0CK INjti, 
TAKERUT*%5B+o <ffitel2t>*>^ 

^2oooR [f&A] y-c; c©y-A 

S#©T\ *-<7>,£tz>£S:LTtao 




tbofc, BASICs C, V2»Kfc<!i\ *gfcA/IS£-5U 



h£h £imf^»m*> u - 
^*>T^tte&iMztft\ ISA 

*tU£s CWfiT-fFo/c7°P^' 
k£t— *— *HHWr-<»-3 ^< x 5© 



£ f o MSXft £*© 8 t* -y h v > > 
BASIC £ V v >l§(75,m<^-&^-ti- A< 
>©fF.£ fc -t 1 I ^-5 ^^T-f^S £ 



©^ 



t ur©ts^g : &««)iz^6nr n 

A»/K— sdiB/urU*5A/*:d:tto 










B<!:/u<lfBASICrf^&nrL\ 

s©c» BGMtfUojiroa&nru 

€> BGMBfeSCJfiUfc^tlift 

c«f©a^te»«U^oS^5d:ffl 

s^ijo ^^©HJf^vt^^or 




tiz^<. 

BASIC± 

fc^c7stf- 

Atf«fL\ttU(CS:orly*5-?o 



^5>7u: 



1 50 ^ 




V? h^xT'ZJ^-xX Hfi 



v_ 



Zl>x^h" "CISv *SS/u»5 

It\f?o «&ftfiBCI*7t7> 
7U50SP3o ^Uti2^ ^3 

^izAJtuEfPSBCBs -&n^n 

30^P9t1075ra^Pg6nSZcz 

»©r, ^^c-ea#siiH* 

(gK7*-^7n<7^^a5Pg 

stK«<ifc^5e^©^U2/x;w^ 

SSI's Cft)P^^-©§^Cc^ l 

tax ^^aA^^-s/is^ * 
©aig'o^^o S£x AMfp©^ 

^"o =^©C££#£k ft8A©7 



©MSXx MSX2. MSX2+© 
StJo jMSRAMn VRAM©^3o 
D-K7d$£s ^tr^)£s ffia'75^ 

mw^emmftx «s©3i«oa* 

^(^■T<^Sl,\)o «33s 20 m^M 

«^#©^©ttBffs KSs mmm 

^=feBSEUT<^St\o 



xl 07-24 

X'J-i:7fl!«lUfcfJU 
(«)77s+- 



© 
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=3£ 






HORTrROGRAM ISLAND 




H3A3000 



T L * -, J: •) &vf7T;uy— A<7\ 

•&>r-A(7)-#jfiii;, =SJKi;(7) 




* -? p -y * o»*«fci73 *</-«< > h y-f 



LUNai^-yogi 

*>£#(::, -©yp^A^rH 
ItT -2> *:*!> (Z (J MSX^<- L -3 S 
^'jZ^(z^?)(7)T\ St£-3(tTfc„ 

* tzlt v a -f Xt -f >y * Tj#ffcL 
— jjRZfc < £ A,<7):7*P -y <7 %Mt 





* i < A^^-r y<7)/\ - xju-3(?i.N*<, 







MjmWS. <*Xit V— A*'— X— £** 



BX.BY 

sc 

ST 
TM 

XX.XY 

ZX 

B(n) 

H(n) 



HO(n) 



irur<§7a^ 
©JSfi 

^-A^ffl 

<A 

©a^©-Bfieiiffl 
SORB 

STUr <•§>:?□ -y^ 

£(DmPft\z£/u&.&(D 
ZinvW&Z>frtt 

:7n'y^©;g£ffl 



ffi 



130-180 


Czry-lvy^—SXD 




m 


190-290 


*-A**yS«cif©^ 




-f>-lb-^> 


300-480 


3tay£®a#MJBH' 




-?y 


440-450 


*-A23©9i-MU 




-j-y 


780 


wfaomm 


790 


mvmmoim^ 


800-810 


?-Ax-jt-(Dnm 




vmm 


820-840 


f-Lo^y-cmm. 




vmm 


850- 


y^y-f^yy—? 



MSX2 + 



Sffi |2 £FMPAC N *teF<g/fcFMgig! ■ ©7= 



r'-f*? K-7-C7 - 



^MSX^-Log 



^ii^ROM 



>HGRTrROGRAM ISLAND 




>y-A„ *A>TIWC«W? 
C '£#*?&£ J: -5 Ctf ott**. 

-#»£EWcLTL£i\ fi** 
^t§M999 b* V '-COB&g£i&££t= 

xztxntdo %zx\ fmtf'Xto 

-X *- * fcli h 'J **- A "Cd v 



>K©>£^ GRAPH *— JfclJ 






GALAXY STORM 



l JXNJ134^-vl:)l« 
* A&£3W>fc <b $ -o * < ^*-A 

<7)3 0(7)=iv>K$-IE'fSLTs V 

re &(=£«« 
9h*ttUttt/£Jil\ ^fef/UT" 

&W)LX, &*xitotnW-£<n%m 

4 K<Ti-f\s— V-X— #^'J %■ 
*StTjBSf-r*fc«)x M^ii* 
T'Sl ^£#S L * -5 ©#e <?>$*— 
Ac7)@iSie*o tztz*pfr<bizmt- 
©T*U&<, i^-^ftjii£t^» 




•fc+Tteri**:— «BEJl«Ct6»*. 



tiMcnfeO 1 !:. ftffi^AUiA' *■*■'■> 



ffifflr$s=iv>K 



?-? 



A** 









/*< P-y t-£*fflLfc'h SSLM-TD7 \-ZmW>2 



»r*^KJb7-7HZ)T-^ 



Shu 1 #g±) j&Dg/gi (£$*) fiffite 


M1037;U^bA 


100 


300 


200 


5000 


M814^Uh— "7 


200 


250 


250 


7000 


MH8BAJl/*> 


300 


200 


300 


10000 


MH9BS5-y 


400 


150 


350 


13000 


MHSSK^Vh 


500 


100 


400 


15000 


SLMHK>=f 


600 


50 


450 


20000 


M999fcfV7- 


700 


200 


900 


300000 



MH26J|-Aa:> = ieeees* 3ir*9«rJL 

HEflPON 300 
SPEED "- 200 
SHIELD: 3 00 ,. _^„ _ 



• i«(4*i(-***S5»ic»«snfc. £**^ts$- 1 ^wrt(=«*r*-i:«. 



N$(n) 


jWavb-Gfeffi 


10-110 


mmsm 


A(n) 


A-fP^S©^!* 


120-160 


>(.-<y)\,-3-y 


C(70) 


/HD'xhfflMW 


170-240 


M(Dm%)i-?y 


S(70) 


;wd^k©14Sij 


250-310 


amomm 


R(70) 


WB«; hJififo^t 


320-340 


A-rn^h — nam 




JUT'-v— 0W% 


350-430 


AMoimm 


P(70) 


A-fPySOSifcift 


440-480 


A-f □ySGDfcBB 


K(70) 


A-fn^h©i/— .il/K 


490-570 


©§§©;££ 


G$(4) 


£8BI£©B«« 


580-620 


v-juk©^ 


N(3) 


SSBK©A-rn^h» 


630-690 


y-yomm 


WP0.5) 


ssBGStf 895 urns 


700-840 


mmy-yomm 




^Etrji/7-v-©& 


850-900 


xuf* yyoimm 


SK(3) 


SHBI^©J»£ 


910-930 


m$s(D-mmm 


M$(40) 


1©€H 


940-1120 


smyyiis-^y 


P 


juspwh*©^ 


1130-1190 


®W\t£(DM%lM& 


PL 


mnyis-v-m. 


1200-1280 


JWnv^CDMm 


FC 


m&.&miszi\z>ju 


1290-1330 


mmnvrngkomw 




a y h©fS^§ 


1340-1450 


^•yyfc£(DT-$ 


ST 


jssasb-russ© 


1460-1490 


V^>IS©»^iA^ 




s^ 


1500- 


~?yyw&>T— 9 



}tH^ 



=/3-h^D^^a^ 



BlSSCJSiSrsttfelc, a* 
L^To ^^i*^ i SASf^sa© 

*£AM075P3Z\ WTSE Stf5 
75P3, m3S^3 73nx^f^AM 
75Rr-To ffSB, 7fJ^^b« 

=fc©rsniSF*g§ j fA**ct< 



[s]£tur, mm^z£>mo<tz 

=107-24 

mpMmm.mm[ii6-}\-} 
MsxvJiyymnffi 



•>a-F-'7'H/'7A'7-f7>F 131 




£1 



XWNDMWI 



^fc^y^-r h^TT— vizfc A,T\ t'x^RAM^rl^UoTT.y 



7J>£lzo I ^I&HJi L fc<7TC\ £ i) 

1*. *CT^tifc "9 -»<*.& 






ausTHiiB© 

8X8 K'y H:fcli16x 16 Kv r- 
<7)+K X<7>* * 7 ? ? — * g filz 

$ it* Z £ tfV* Z<7)tf4mt? 

{Z#"3"U^ 

£T, 777-f K7)*IJfflKZttii 
3? N PUTSPRITEXtfrts&bft*,, 3 



■ I 10 SCREEN!, 0:A=4H1B00 

- ; 20 INPUT X. Y, C. P 

7, 30 PUTSPRITE 0. (X, Y) . 

k C.P 

J-. 40 PRINT VPEEK(A) ; VPE 

\±) EK (At I ) ; VPEEK (At 2) : VP 
EEK (A+3) 



-fhf^ XWOtt ZZ£ **■?# 

£>«fc-}lZ&oTU£ OS Us j2 
<7)^£ 7ii£7LXtH1\,i£ U &* 
■f7.7°v-f r-£zi>ha — JUTS 
-£**£#'**>«•& fcffU * 

£100/*— te > h ^gffSiTS Z £ 

i)Wgfilztii J )tzifolzlt s &p* 

tzT—y'jiszm&mft Lt*s* 

IZT^RAMtZti, 7.7 71' KZ 
&5 fcfcfclfc PUTSPRITE5IT- 

BiziHrrsitfK(j:*77-f k • ? 

•5.&H1 B00#*ftEl&{Z A -7 T US 
<7>*f M7h©£A7J, HffLT 



UXK( 



TO 4H1FF0 STEP 1 



100 SCREEN 1,2: KEY OFF 

110 DIM XS(79), YS(79) 

120 l=50:X0=127:Y0=96:V=2«3. 14159 

2#/80 

130 FOR 1=0 TO 79 

140 XS(I)=INT(X0tSIN(I*V)*L) 

150 YS(I)=INT(Y0tCOS(I*V)*L) 

1S0 NEXT I 

161 FOR I=4H3800 TO It64 

162 VPOKE I. 255: NEXT 
170 SI =0 

180 FOR I=4H1B00 TO 4H1BIF STEP 4 

190 S2=0:FOR J=0 TO 9 

200 VPOKE ItS2t0, YS(SI) 

210 VPOKE ItS2tl.XS(SI) 

220 VPOKE ItS2t2. 

230 VPOKE ItS2t3. 15 

235 Sl=Slt| 

240 S2=S2t128 

250 NEXT J. I 

270 FOR 1=4HI 

28 

280 VDP(5)=I¥128 

290 FOR J=0 TO 50: NEXT 

300 NEXT: GOTO 270 



tf^TTRAMS 

fc'-T^-RAMJilZ^ T-Tv-f h 

T—^¥VSSIt$tiXl^ J r—-fJU 

* ! 3olt?nXL^„ ^Mit* 

(noh&itiizi^xfflrLJiOo 

£1\ &H1B00~1B7F#i-feti7 
7^-f h • T b 'J t'=L- h • J— 
7'Jls£mftiX^Z> zclzliT. 

77 < h cnmTFitm. 3 *? £.#-§\ /< 

'J7.KD&A7X H^rLT^-cfc 

8ftW^77-f htfRfcffil^T, 

4^lZ % ZftT*fc29(WTT*7x- h 
^XfbtlTl^-So FORJU— 7°<D 

mzji-yxi $h 



r 




LUKD 




10 


SCREEN 


. i 




20 


VDP (6) =0 




30 


FOR 1=0 


TO 255 STEP 32 




40 


FOR J=0 


TO 7: FOR K=0 TO 


3 


b0 


PUT SPRITE KtJ»4. (K«16. 


J*16). 1 


5. 


tKtJ*4 






B0 


NEXT K. J 




?0 


FOR J=0 


TO 500: NEXT J 




80 

• — 


NEXT I 







Ejt <t%Z£ tziXXZ %(Dtz a 
PUTSPRITE3t^$-3Tl^fc«b, C 

*ft*H3^5Tg| ZZX'lts 777 
-f h -7* h U t'a.— h -7 1 — 7VU%- 
KSVPOKEXTiftf^-r 5 Z t (I 

^, Sfli^Ufe^^-f h • 
7-fM 0^7><7)^^l3iaT f - ^ £ 

^r^-tT-RTF? -&S 3 fc (Z ct -3 T 

-OglZ* &H3800~&H3FFF#Hil 
(DT.y^-f b -f)=7—' T— 7'^U 

*mwL&io zz\,fx-f=7< v 

7 77-f K7)S«rfii*lZ^JL*Z 

U^hCDTIS, 7il/7 7^7 h 

/\°^ — >7 =? — ^?r, ZZfDv—y' 
MZ&LXB&ZltXAtzo ¥— 



L TSfe^Slx. -5 Z t tJT# i « 

^fr? *§^# 'hi?** 

A5tAM-MSX-MUSIC(7) K 
7Ac7)goT, •>-t'*-> 



X/:"t9, ZOT K7A<Df^|:^ 

* z fc tjoinift;,, ^fJTjfJ, Ya 

'?> h'£f£-?TUv:*?— <7522~ 

HiLT<n 
Z (75 a -7"- (c Bfl-T * MFp^S 



107-24 

my*.*- 

S/a-h7P^-5A^ 




132 ->a- h ' 7'P7'7A • T-f 7> K 



Short Program I 



SLAND 




H^A3000 



{ttmizm^-yiznm 



10 DEFINTA-Z:SCREEN2:OPEN"GRP:"AS#1 :VDP(1) =VDP(1)A 

ND191 

100 PRESET (0, 32) : FORI =32T095 : PRINT#1 . CHR$ (I) ; :NEXT 

1 1 _TURBOON 

120 DIMB(2), H(5. 1 1 ) , H0 (5, 11) :BX=2:BY=0 

130 FORX=0TO4 

140 FORI0=0TO3:FORI=0TO7:READA$:P=VALC&H"+A$) 

150 11 = (I0MOD2) *8+ (I0¥2) *256+I + 1 6*X: FORY=0TO2 : VPOK 

EI1+&H800*Y, P:NEXTY, I. 10 

160 FORI0=0TO3:FORI=0TO7:READA$:P=VAL("&H"+A$) 

170 I1=&H2000+ (I0MOD2) *8+ (I0¥2) *256+ 1+1 6*X: FORY=0T 

02 : VPOKE1 1 +&H800*Y, P: NEXTY, I. 10 

180 NEXTX 

190 GOSUB490:GOSUB470 

200 F=1 :I=RND(-TIME) :GOSUB530:GOSUB500 

210 TIME=0:TM=1 :ZK=9999 : A$="TIME" :P=55:GOSUB770: A$ 

="SCORE" : P= 1 83 : GOSUB770 : GOSUB780 : GOSUB790 : VDP ( 1 ) =V 

DP(1)OR64 

220 ZK=ZK-1 :GOSUB790:IFINKEY$=CHR$(13)THENEND 

230 IFZK=0THEN800 

240 XX=BX:YY=BY:ST=STICK(0)ORSTICK(1) :GOTO440 

250 IFST=3ANDBX<5THENXX=BX+1 :GOTO 280 

260 IFST=7ANDBX>0THENXX=BX-1 :GOTO 280 

270 IFST=5THEN300 ELSE220 

280 TM=TM-1 :IFH(XX, BY+2) >0OR TM>0THEN220 ELSETM=10 



290 SWAPXX, BX : SWAPYY, BY : GOSUB5 1 : GOSUB500 : GOTO 220 

300 IFBY=9THENELSE IFH (BX, BY+3) >0THEN ELSEYY=BY+1: 

GOTO 290 

310 FORI=0TO2:H(BX, BY+I)=B(I) :NEXTI 

320 FORI0=2TO0STEP-1 :XX=BX: YY=BY+I0: 1 1 =B (10) 

330 GOSUB650:GOSUB590 

340 GOSUB750:GOSUB740 

350 X0=2:FORX=0TO5:FORY=0TO11 :IFH(X, Y) >0ANDH0 (X, Y) 

= 1 THENH (X. Y) =0 : SC=SC+X0 : X0=X0* 2 : 1 FSC>3000THEN820 

360 NEXTY. X, I0:GOSUB740:GOSUB780 

370 FORX=0TO5:Y=11 

380 IFH(X, Y)=0OR Y=11THEN400 

390 IFH (X. Y+1) =0THENH (X. Y+1) =H (X, Y) : H (X, Y) =0:Y=Y+1 

:GOTO380 

400 Y=Y-1 :IFY>-1THEN380 

410 NEXTX :GOSUB740 



420 BX=2:BY=0:GOSUB530:GOSUB500:GOTO 220 

430 

440 IFTIME<40THEN IFST=0THENTM=1 :GOTO220 ELSE250 

450 TIME=0:GOTO 300 

460 GOTO 460 

470 FORX=0TO5:FORY=0TO23 

480 I=&H180A+X*2+32*Y:VPOKEI, 0:VPOKEI + 1, 0:NEXTY, X: 

RETURN 

490 FORI=&H1800TO&H1800+32*24-1 : VPOKEI, 64:NEXTI:RE 

TURN 

500 FORP=0TO2:I=&H180A+BX*2+64*(BY+P) : F=1 :GOSUB520 

:NEXTP: RETURN 

510 FORP=0TO2:I=&H18k. v XX*2 + 64* (YY+P) : F=0:GOSUB520 

:NEXTP: RETURN 

520 VPOKEI, (B(P)*2)*F:VPOKEI + 1, (B (P) *2+1) *F: VPOKEI 

+32, (B(P) *2+32) *F: VPOKEI +33. (B (P) *2+33) *F: RETURN 

530 FORI=0TO2:B(I) =INT (RND (1 ) *4) +1 :NEXTI : RETURN 

540 ONF+1GOTO 550, 560, 570, 580 

550 I=0:P=-1 :RETURN 

560 1=1 :P=0:RETURN 

570 I=0:P=1 :RETURN 

580 I=-1 :P=0: RETURN 

590 IFH (XX, YY) =0THENRETURN 

600 H0 (XX, YY) =2 : GOSUB620 : I FF0=0THENH0 (XX, YY) =0 : RET 

URN ELSEH0(XX, YY)=1 

610 GOSUB620:IFF0=1THEN610 ELSERETURN 

620 F0=0:FORX=0TO5:FORY=0TO11 

630 I FH0 (X, Y) =2THENGOSUB700 : H0 (X. Y) = 1 

640 NEXTY, X: RETURN 

650 FORX=0TO5 : FORY=0TO1 1 : H0 (X, Y) =0 : NEXTY, X : RETURN 

660 I = &H180A+X*2+64*(Y) 

670 VPOKEI, (H(X, Y)*2) *F:VPOKEI + 1, (H (X, Y) *2+1) *F : VP 

OKEI+32, (H(X, Y) *2+32) *F: VPOKEI +33, (H (X, Y) *2+33) *F: 

RETURN 

680 IFX0<0OR X0>5OR Y0<0OR Y0>1 1 THEN I =- 1 : RETURN 

690 IFH(X0, Y0)=I1THENI = 1 : RETURN ELSERETURN 

700 FORF=0TO3 : GOSUB540 : X0=X+ I : Y0=Y+P 

710 IFX0<0OR X0>5OR Y0<0OR Y0>11THEN730 

720 IFH (X0, Y0) =I1ANDH0 (X0. Y0) <>1THENH0 (X0. Y0) =2:F0 




: F= 1 : GOSUB660 : NEXTY, X : RETU 



730 NEXTF: RETURN 
740 FORX=0TO5:FORY=0TO1 
RN 

750 FORX=0TO5:FORY=0TO11 :IFH0(X. Y)=1THEN F=0:GOSUB 
660 

760 NEXTY, X: RETURN 

770 I0 = LEN(A$) : FOR I = 1 TOI0: VPOKE&H1 800+P+I. ASC (MID$ 
(A$, I))+96:NEXTI:RETURN 
780 A$=STR$(SC) : P=247 :GOTO770 
790 A$=STR$ (ZK) +" " : P=1 1 9 :GOTO770 
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800 A$="GAME OVER" : P=234 :GOSUB770 


1020 


DATA FF. 01, 01. 01, 01,01. 01, 01 


810 IFINKEY$<>CHR$ (13)THEN810 ELSE END 


1030 


DATA 80, 80, 80. 80, 80, 80, 80. FF 


820 SC=3000:GOSUB780:A$=" NICE ! " : P=236:GOSUB770 : GO 


1040 


DATA 01, 01.01. 01. 01. 01. 01, FF 


TO810 




1050 


DATA F6, F9. F9, F6, F6, F6. F6, F6 


830 _TURBOOFF 


1060 


DATA F6, F9, F9. F6. F6. F6. F6. F6 


840 RUN 




1070 


DATA F6. F6. F6. F6, F6, F9, F9. F6 


850 DATA 


FE, 01, 01, 01, 01, 01,01, FF 


1080 


DATA F6. F6, F6, F6, F6, F9. F9, F6 


860 DATA 


FE. 01. 01. 01, 01, 01, 01. FF 


1090 


DATA FF, 80. 80. 80. 80. 80. 80. 80 


870 DATA 


FE, 01.01.01,01.01.01. FF 


1100 


DATA FF. 01. 01. 01. 01, 01, 01, 01 


880 DATA 


FE. 01. 01, 01. 01. 01, 01, FF 


1110 


DATA 80. 80. 80. 80. 80, 80, 80. FF 


890 DATA 


21. 1C, 1C. 1C, 1C. 1C, 1C, 1C 


1120 


DATA 01,01.01. 01.01. 01.01. FF 


900 DATA 


21. 10, 10. 10. 10, 10. 10. 10 


1130 


DATA F4. F3. F2, FC, FC. FC. FC. FC 


910 DATA 


21. 10, 10, 10, 10, 10, 10. 10 


1140 


DATA F4, F3, F2, FC, FC, FC. FC. FC 


920 DATA 


21, 10, 10, 10, 10, 10, 10, 10 


1150 


DATA FC, FC. FC, FC, FC, F2, F3, F4 


930 DATA 


FF, 80. 80. 80. 80. 80, 80, 80 


1160 


DATA FC, FC. FC, FC. FC. F2. F3. F4 


940 DATA 


FF. 01. 01. 01. 01, 01, 01. 01 


1170 


DATA FF. 80, 80, 80, 80, 80, 80, 80 


950 DATA 


80. 80. 80. 80, 80, 80, 80, FF 


1 180 


DATA FF, 01, 01. 01. 01, 01. 01,01 


960 DATA 


01, 01. 01. 01. 01. 01. 01. FF 


1190 


DATA 80. 80, 80, 80, 80, 80, 80, FF 


970 DATA 


F4. F7, F5, F4, F4. F4. F4. F4 


- 1200 


DATA 01, 01.01, 01, 01, 01, 01, FF 


980 DATA 


F4. F7. F5. F4, F4, F4. F4. F4 


1210 


DATA F4, FB. FA, FA, FA, FA, FA, FA 


990 DATA 


F4. F4. F4. F4, F4. F5. F7. F4 


1220 


DATA F4. FB. FA. FA. FA. FA, FA, FA 


1000 DATA F4, F4, F4, F4, F4, F5, F7, F4 


1230 


DATA FA, FA. FA. FA. FA, FA, FB, F4 


1010 DATA FF, 80, 80, 80, 80, 80, 80, 80 


1240 


DATA FA. FA. FA. FA. FA. FA. FB. F4 



A 
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10 '<<<<<<<<====== 

A L A X Y • STORM 
sumoto. ====>>>_>>>>> 

20 SCREEN 0: COLOR 15, 0,0: WIDTH 40 : CLEAR &H500.&HCF 
FF: GOSUB 1470: SCREEN 1,2: WIDTH 32: KEY OFF:DEFUSR=& 
HD006 : Q=USRC ) : POKE &HFCAB , 255 : RESTORE 
30 DEFINT A-Z:DEFUSR1=&H90:DEFUSR2=&HD000:DEFUSR3= 
&HD003 : DEFUSR4=&H 156: DUMMY=RNDC -T I ME ) : Q=USR 1 C ) : CL 
S 

40 DIM NSC70),AC70),SC70),CC70),RC70),PC70),KC70), 
GSC 4 ) , SSC 1 ) , WPC 3 , 5 ) , WLC 7 ) , HMC 7 ) , PSC 7 ) , H$C 7 ) , FSC 7 ) , 
TMC31),MKC31),HKC31 ) , SKC3 ) , MC40 ) , MSC40 ) , NC3 ) , LC3 ) , 
XC40),YC40),CLC4) 

50 FOR 1=0 TO 7: READ FSC I ) , HSC I ) , WLC I ) , DXC I ) , HMC I) 
,PSCI):NEXT:FOR 1=0 TO 40: XC I )=CPEEKC&HD29F+I*2 )+6 
)/9:YC I ) = CCPEEKC&HD29E+I*2>+1 ) AND 255 )/8 : NEXT: FOR 

1=0 TO 31:M$CI) = "Xot±iy'+STRSCI + l>:NEXT:F0R 1=32 TO 

40: READ MSC I ) : NEXT 
60 YR=6245 : M=4 : W= 1 : GSC0 ) = "5iV* -7" : GSC 1 ) = "f fz77." : G 
$C 2 )="1-*WX7" : GSC 3 >■"»«* -V" : GSC4 ) = "7*T -h" " : SSC0 ) = 
"htZ" : SSC 1 ) = "*>/,&" : CLC0 )=7 : CLC 1 )=9 : CLC2 )=3 : CLC3 )=10 
:CLC4)=14:F0R 1=0 TO 3 : SKC I )=5000 : NEXT 
70 FOR 1=0 TO 63:RC I )=6 : PC I )=I¥16 : NEXT: FOR 1=0 TO 
40:MCI)=-1:NEXT:FOR I=&H1AE0 TO &H 1 AFF : VPOKE 1,23: 
NEXT 

80 FOR 1=64 TO. 69:G0SUB 980 : NSC I )=NS: RC I) = I -64: KC I 
)=HMC RC I ) ) : CC I )=20*C I -64 )+30 : NEXT : NSC 70 ) = "7«T -K " : 



KC70)=9000:RC70)=7:LS=64:FOR 1=0 TO 15:READ A$:PRI 

NT AS ; : NEXT : Q=USR4C ) 

90 LOCATE 2, 18 : PRINT "&A.tU?" 7°LY LXTtfC 1-4)?" : AS=INP 

UTSCl):PL=ASCCAS)-49: IF PL<0 OR PL>3 THEN 90 ELSE 

IF PL=0 THEN 110 ELSE IF PL=3 THEN MX=3 : GOTO 130 

100 LOCATE 3, 19:PRINT"3>b°a-9-t OftXttfC Y/N>?" : AS=IN 

PUTSCDrlF A$="N" THEN MX=PL:GOTO 130 ELSE IF ASO 

"Y" THEN 100 

110 MX=3: LOCATE 4, 20 : PRINT'^Vt !-?-!!) LV JUiC 1-9 )?" : 

AS=INPUT$C1): IF AS<"1" OR AS>"9" THEN 110 ELSE LV= 

ASCCAS)-49 

120 •============ Wj \i-fj ============ 

130 FOR P=0 TO MX: IF P<=PL THEN PLAY"S0M8000T230O5 

C8C4" 

140 PUT SPRITE 4. C 0,207): LOCATE 0,16: PRINT USING"- 

tt#t*tt:tttt: «L*-5*>C& &) #tttttt«0^S-" ; YR, M, W, GSCP) , SKCP 

):GOSUB 950: IF P>PL THEN 180 

150 GOSUB 950:LOCATE 0.17:PRINT" 7-7° ": PRINT" *" 

¥-5t£W": PRINT" l"UrtMtW:PRIMT" fi*4Bn¥ u*^":PR 

INT" M-A 1>M£" 

160 A=USR2C&H804): IF A=255 THEN 260 ELSE ON A+l GO 

TO 640,500,360,330,910 

170 '============ siyj jt-f> ============ 

180 B=RNDC1 )*6: IF NCP)>LV OR MCP*8)<>-1 OR SKCPXP 

SCB) THEN 200 ELSE I=P*16 

190 IF NSCI)="" THEN GOSUB 980 : NSC I )=N$: AC I )=RNDC 1 

)*90+10:CC I )=RNDC 1 )*120:RC I )=B:PC I )=P*8 : NCP)=NCP)+ 

1:MCP*8)=I:PUT SPRITE 4, CXCP*8 )*8-6 , YCP*8 )*8-l ) , 15 

,0:LOCATE XCP*8 ), YCP*8 ): PRINT CHRSC 105+P) : GOSUB 97 

ELSE 1=1+1: IF I<P*16+15 THEN 190 

200 IF NCP)=0 THEN 210 ELSE FOR I=P*16+NCP)- 1 TO P 

*16 STEP -1:B=HMCRCI))-KCI): IF SKCPXB THEN NEXT E 

LSE SKCP)=SKCP)-B:KCI)=HMCRC1)):NEXT 

210 IF NCP)=0 THEN 260 ELSE FOR K=P* 16+NCP)-1 TO P 

*16 STEP -1:FC=K:B=RNDC1)*C6-RCFC))+1:ST=PCFC):A=S 
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T+B:PUT SPRITE 4, CXCST)*8-6 . YCST)*8-1 ) , 15 , : PLAY"L 

64V15C*':FOR 1=0 TO 100 : NEXT: IF ST<P*8+8 AND A>P*8+ 

7 THEN A=A+24-P*8 

220 IF A>39 THEN A=40 : MCA )=LS: GOTO 710 ELSE IF MCA 

)¥16<>P AND MCA)<>-1 THEN 710 

230 IF MCA)¥16=P THEN NEXT:GOTO 260 ELSE IF ST>31 

THEN B=l 16 ELSE B=P+112 

240 LOCATE XCST) , YCST ): PRINT CHRSCB) : PCFC)=A: MCST) 

=-1 :MC A )=FC: LOCATE XC A) , YCA) : PRINT CHRSCP+105 ) : PUT 

SPRITE 4,CXCA)*8-6,YCA)*8-1), 15,0:GOSUB 970:NEXT 
250 '========== Vi^lV J ^a'J =========== 

260 PUT SPRITE 4, C0 , 207 ) : NEXT: W=W+1 : IF W<5 THEN 28 
ELSE M=M+l:W=l:FOR 1=0 TO 3 : SKC I )=SKC I )+2000 : IF 
SKCI>>30000 THEN SKC I )=30000 
270 NEXT: IF M=13 THEN YR=YR+1:M=1 

280 IF YR=6246 AND M=4 AND W=l THEN FOR J=0 TO 7 : G 
OSUB 970: NEXT: GOSUB 950: FOR K=0 TO 7 : X=4: Y=103 : GOS 
'UB 1300: NEXT: PUT SPRITE 2 , C0 , 207 ): LOCATE 0,13: FOR 
1=0 TO 2: PRINT" " : NEXT ELSE 300 

290 LOCATE 4, 19 : PRINT"fcfcA.T T . L" tfi.9" *y*tt^T* Lft . . . " 
: LOCATE 8 . 2 1 : PRINT"PUSH SPACE KEY. ..": GOSUB 1080:G 
OTO 890 

300 FOR 1=0 TO 31: IF TMCDO0 THEN TMC I )=TMC I )-l : I 
F TMCI)=0 THEN WPC I¥8 , MKC I ) )=WPC I¥8 , MKC I ) )+HKC I ) : G 
OSUB 950: LOCATE 2, 17: PR I NT GSC I ¥8 );"«*": LOCATE 3: 
PRINT FSCMKCI));STRSCHKC I ));"S*T tUtt^LXLfco ": GOSUB 
960 

310 NEXT: GOTO 130 
320 •========== jr-fD'yh Yf5i/ =========== 

330 GOSUB 950:FOR 1=0 TO 14:L0CATE C I¥5 )*10+ 1 , C I M 

OD 5)+17:PRINT NSC P* 16+ h) ; : IF RCP*16 + I)<>6 THEN LO 

CATE CI¥5>*10+8:PRINT"GO" 

340 NEXT: LOCATE 8 , 22 : PRINT"PUSH SPACE KEY !": GOSUB 

1080.-GOTO 150 

350 '=========== *j~W4 t-f') =========== 

360 X=4: GOSUB 11 20: LOCATE 6 , 17 : PR INT"L«>-?t" V : LOCAT 
E 6:PRINT";r-fD'yh¥iJS<":A=USR2C8cH2801): IF A=255 THEN 

150 ELSE ON A+l GOTO 450,370 
370 IF NCP)=15 THEN 150 ELSE X=7 : GOSUB 11 20: LOCATE 

9, 17:PRINT"X-r>t>9-3>t°a-5'-C 10075$)" : LOCATE 9:PRINT 
"LS^tToCl'iro ty*0 C30075S)": LOCATE 9:PRim"*y-nX'")7.~jT< 
OiZmr C50075S)":A=USR2C8=H4002): IF A=255 THEN 360 
380 IF A*20+10>SKCP) THEN 360 ELSE SKCP)=SKCP)-A*2 
0-10 

390 A=A+1: GOSUB 950 : B=RNDC 1 )*A*30+10 : C=RNDC 1 )*A*40 
+ 10 :D=RNDC 15*2: GOSUB 980: LOCATE 1 , 17: PRINT"*offy*Lft 
o": LOCATE 2: PR I NT N$;"fc o«ajT* fcltt";B 
400 LOCATE 3 :PRINT"T7l i y-7li";C: LOCATE 4: PRINT"ttoV -?li 

" ; S$C D ) ; "f to " : LOCATE 5 : PR I NT"fc" "5 L*L j:"5 C Y/N )? " ; 
410 A$=INKEY$:IF AS="Y" OR STRIGC1) THEN I=P*16:GO 
TO 420 ELSE IF A$="N" OR STRIGC3) THEN 260 ELSE 41 


420 IF N$CI)="" THEN NSC I )=NS: AC I)=B: SC I )=D: CC I )=C 
:RC I)=6:KCI)=0:NCP)=NCP)+1:GOTO 430 ELSE I=I+l:GOT 
420 

430 GOSUB 950: LOCATE 3 , 17 : PRINT"l3o ! OXClXyXlfco " : GOS 
UB 960 :GOTO 260 
440 '============= V2.VK"> ============= 

450 A=0:GOSUB 1210: IF R=-l THEN 360 ELSE IF RCFCX 

>6 THEN GOSUB 950: LOCATE 1,18: PR INT NSC FC ); "t" 01\1 t 

~><C L*-5fc--)S«*Lfto": GOSUB 970: GOTO 140 ELSE GOSUB 11 

20 

460 FOR 1=0 TO 5: LOCATE 6, 17 + 1: PR I NT USING"® : HH8S" 

;FSCI),UIPCP, I):NEXT:A=USR2C8=H2805): IF A=255 THEN 4 

50 ELSE GOSUB 950 

470 IF MCP*8)<>-1 THEN GOSUB 950:LOCATE 2,17:PRINT 

"V-^r-m-yhtf" fefcHXTo": GOSUB 970: GOTO 140 

480 IF WPCP,A)=0 THEN LOCATE 2 , 17 : PR INT"*tlia lStfcy* 



tt<U":GOSUB 970-.GOTO 140 ELSE WPCP, A)=WPC P, A )-l : RCF 
C)=A : KC FC )=HMC A ) : PC FC )=0 : MC P*8 )=FC : LC P 5=0 : LOCATE X 
CP*8),YCP*8):PRINT CHRSC 105+P ): LOCATE 2, 18: PR INT N 
SCFO'.-ffflir l+~)f -5 SfttLfto ": GOSUB 960: GOTO 140 
490 ■=========== xv? tft" ============ 

500 X=4: GOSUB 1120: LOCATE 6 , 17 : PRINT"*-*"5tA." : LOCATE 

6, 18:PRINT"IJS*-3" 
510 A=USR2C8=H2801): IF A=255 THEN 150 ELSE ON A+l G 
OTO 520,590 

520 X=7: GOSUB 11 20: FOR 1=0 TO 5 : LOCATE 9, 1 + 17: PR IN 
T F$CI):NEXT 

530 A=USR2C8=H4005): IF A=255 THEN 500 ELSE GOSUB 95 
0: LOCATE 1,17: PR I NT USING"®: tttttttt*075S ttL*-5?r,l" ; FS 
CA),PSCA),A+1 : LOCATE 2 : PRINT" : " ; HSC A) 
540 LOCATE 3 : PR I NT "WEAPON: " ; WLC A) : LOCATE 3:PRINT"S 
PEED :";DXC A): LOCATE 3 : PRINT"SHIELD: " ; HMCA) 
550 LOCATE 3 , 22 : PRINT"8^S 5*-5^aao*T*f C0-9 )? 0";:R= 
0:Q=USR4C0): GOSUB 1030: IF R=0 THEN 520 
560 IF PSCA)*R>SKCP) THEN GOSUB 950:LOCATE 2,17:PR 
INT"LS-l8-ity3:ti,U ":GOSUB 960:GOTO 520 ELSE SKCP)=SKC 
P)-PSCA)*R: I=P*8 

570 IF TMC I )=0 THEN HKC I )=R: MKC I )=A: TMC I )=A+1 : GOSU 
B 350: LOCATE 2 , 17 : PRINT"?fL;xyXLfto " : GOSUB 960: GOTO 
140 ELSE 1 = 1 + 1: IF KP*8+8 THEN 570 ELSE GOSUB 950: 
LOCATE 2, 17:PRINT":i'5l'" JtftTo-jttUvr -7<i{ttA,o " : GOSUB 9 
60: GOTO 140 

590 GOSUB 950: LOCATE 1 , 17 : PRINT"t" ZC fe<y*l.f5o " : GOS 
UB 1100: IF A=255 THEN 500 ELSE IF MCA)=-1 THEN GOS 
UB 1150:GOTO 140 ELSE FC=MCA):IF FC¥16<>P THEN 140 
ELSE IF KCFC)=HMCRCFO) THEN LOCATE 3 : PR INT''^-)^" 
I* ?'y?7,-r To ": GOSUB 960: GOTO 140 

600 LOCATE 1: PR I NT FSCRCFC) ) ; "<n SMIiK 7^77.1*" ; HMCRCF 
C)>;T?.": LOCATE 3 : PR I NT"l£S-*-5T5mC" ; STRSC HMC RC FC ) ) 
-KCFC));"075Strffy3;To ":LOCATE5:PRINT"t"-5LSLj;-5CY/N)?": 
GOSUB 960 

6 10 AS=INKEYS:IF A$="Y" OR STRIGC1) THEN 620 ELSE 
IF A$="N" OR STRIGC3) THEN 590 ELSE 610 
620 IF SKCPXHMCRCFC))-KCFC) THEN LOCATE 4:PRINT"L 
S^'fcyStUo": GOSUB 360: GOTO 590 ELSE GOSUB 950:LOCA 
TE 2, 17: PRINT "US-* -JLILfto": GOSUB 960 : SKCP)=SKCP)-HMC 
RCFC))+KCFC):KCFC)=HMCRCFC)):LCP)=X:GOTO 140 

640 GOSUB 1140:C=X:IF ST=255 THEN 140 ELSE IF MCST 

)¥16<>P OR MCST)=-1 THEN 140 ELSE PUT SPRITE 4.CXC 

ST)*8-6,YCST)*8-1). 15,0:LOCATE I , 17 : PRINT"t< tS»tt t 

"CIT &y*T*r?":LCP)=C: GOSUB 1 100 : Z=X: GOSUB 950 

650 IF A=255 THEN 140 ELSE IF ST=A THEN GOSUB 950: 

LOCATE 3, 19:PRINT"fcfctf& fe*>*t*T?T ■••": GOSUB 970: GOTO 

140 ELSE IF MCA)¥16=P AND MCA)<>-1 THEN GOSUB 950: 

LOCATE 3, 19: PRINT "atrfcStr oSTo ": GOSUB 970:GOTO 140 

660 IF ABSCC~X)>6-RCFC) THEN LOCATE 3 . 17 : PRINT"t&T 

B'X 9-:>"rS3;ttA.o": GOSUB 970: GOTO 140 

670 IF A=40 THEN MCA)=LS:GOTO 710 ELSE IF MCA)¥16< 

>P AND MCA)<>-1 THEN 7 10 

680 IF ST>31 THEN B=116 ELSE B=P+112 

690 LOCATE XCST) , YCST) : PRINT CHRSCB) : PCFC)=A: MCST) 

=-1 :MCA)=FC:LCP)=X:LOCATE XCA) , YCA) : PRINT CHRSCP+1 

05): LOCATE 3 , 19 : PRINT?Ofc" "JLSLfc. " :GOSUB 960: GOTO 26 



700 -============= ,yj.ji =============== 

710 GOSUB 950:LOCATE 1 , 17 : C=MC A) : D=RCFC) : E=RCC) : CT 

=0:VDPC 1 )=&HE3:PUT SPRITE 5 , CXC A)*8-6 , YC A)*8-l ) , 15 

,0 

720 PRINT USING" (8)9 £91 & 8=98= 8= S:tt«««9S 

-.nUHti WP : 8889UIP : 8W8 SP: HH«9SP: HUH TC: «tt**9TC: Mtttt 

" ; GSC P ) , SPACESC 14), GSC C/ 1 6 ) , NSC FC ) , SPACESC 1 6 ) , NSC C 

),KCFC),SPACESC 18 ), KCC) , WLCD) , SPACESC 18 ) , WLCE ) , DXC 
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D ) , SPACESC 1 8 ) , DXC E ) , CC FC ) , SPACESC 1 8 ) , CC C ) 

730 PUT SPRITE , C64, 15 1 ) . CLCP) , D+4 : PUT SPRITE 1,< 

160, 151 ),CLCC¥16),E+10 

740 Q=USR1C0):PLAY"S8M10O8C":FOR 1=96 TO 144: PUT S 

PRITE 2.CI, 155), 15, 1:NEXT: IF DXCE)>RNDC 1 )*600 THEN 

FOR 1=144 TO 192:PUT SPRITE 2 . C I , 155 ) , 15 , 1 : NEXT: G 
OTO 760 ELSE B=C UILCD)+RNDC 1 )*800+CCFC)*10-C WLCE)+C 
CC)*4))/10: IF B<1 THEN B=l 

750 X=160:Y=151 : GOSUB 1300 : KCC)=KCC)-B: IF KCCX1 T 
HEN PUT SPRITE 1 , C0 , 207 ): GOTO 790 ELSE LOCATE 27,1 
9: PR I NT USING"**t*8tt";KCC) 

760 Q=USR1C0):PLAY"S8M10O7C":FOR 1=160 TO 96 STEP 
-1:PUT SPRITE 2, C I , 155), 15, 1 : NEXT: IF DXCD)>RNDC 1 )* 
600 THEN FOR 1=96 TO 48 STEP -1:PUT SPRITE 2, CI, 15 
5), 15, 1: NEXT: GOTO 780 ELSE B=CWLCE)+RNDC 1 )*800+CCC 
)*10-CWLCD)+CCFC)*4))/10: IF B<1THEN B=l 
770 X=64:Y=151: GOSUB 1300 : KCFC)=KCFC)-B: IF KCFCX1 

THEN PUT SPRITE , C0 , 207 ): GOTO 810 ELSE LOCATE 3, 
19:PRINT USING"tttttt«";KCFC) 

780 CT=CT+1:IF CT=5 THEN AS="":GOTO 830 ELSE 740 
790 GOSUB 1310: IF A=40 THEN 840 ELSE X=C: Y=CC¥16 )* 
16+14: GOSUB 1060 : MC A)=FC: MCST)=-1 : PCFC)=A: LCP)=Z: A 
$="Ofc""3LXLfco": LOCATE XC A) , YC A) : PRINT CHRSC 105+P) : I 
F ST>31 THEN B= 1 1 6 ELSE B=112+P 
800 IF CCFCX200 THEN CCFC)=CCFC)+10 : GOTO 820 ELSE 

820 
810 X=FC:Y=P*16+14:G0SUB 1060 : A$="ftftO'o IZ SltTLKofco " 
:MCST)=-1:IF ST>31 THEN B=116 ELSE B=112+P 
820 LOCATE XCST) , YCST) : PRINT CHRSCB) 
830 GOSUB 950: LOCATE 2, 18: PRINT AS: GOSUB 960:VDPC1 
)=&HE2: GOSUB 970: FOR 1=0 TO 5 : PUT SPRITE I, C 0,207) 
.-NEXT: IF P>PL THEN NEXT:GOTO 260 ELSE GOTO 260 
840 GOSUB 950:LOCATE 4, 18 : PRINT"TS M- A * ftiLXtft!": 
LS=LS+1:IF LS<71 THEN GOSUB 960 : D=CLS-64)*10+ 100 : S 
KCP)=SKCP)+D:AS="ttA,Lj:-58A,"+STRSCD) + "075S*rfc<e>*U:Lfc:o": 
IF SKCP)>30000 THEN SKCP )=30000 : GOTO 830 ELSE 830 

860 GOSUB 950:VDPC 1 )=&HE2:FOR 1=0 TO 5 : PUT SPRITE 

I , C0, 207): NEXT: FOR K=0 TO 7 : X=208 : Y=7 : GOSUB 1300 :N 
EXT: PUT SPRITE 2 , C0 , 207 ): LOCATE 27, 2: PR INT" ":IF P 

>PL THEN 900 ELSE LOCATE 6 , 18 : PRINT"??" -K S fzhLZUz 

! ! !":GOSUB 960 

870 LOCATE 4, 2 : PR I NT """ft- V>" ; CHRSC P+49 ) ; "-f." ft&&V#*4 " 

;G$CP);"*- ": LOCATE 5,4:PRINT"J:<¥" * *S*-5* TCoTCtlfco " : 

LOCATE 5,6:PRINT"<Eo?s " 

880 LOCATE 5 , 8 : PRINT"S<A.« 58*-)< * Jit ^ tic GAAtoUtfr* "rL 

OCATE 5, lB:PRINT"iA« , 6^tt , 'C:<fflft»C- "'.LOCATE 5, 12: PR IN 

J"ftittT-»X<i[ttTXj": LOCATE 5 . 14: PRINT"GALAXY STORM (D L-Jt 

IZ'-H *fc» ":GOSUB 1320:GOSUB 950:LOCATE 3,18:PRINT" 

PUSH SPACE KEY. . .": GOSUB 1080 

890 CLEAR &H500 , &HCFFF : GOTO 30 

900 LOCATE 2 , 18 : PRINT"??* -K" (T fcfc**lft*-5T~ To ! " : LOCAT 

E 3:PRINT"8S* CSfttlloXLfc !": GOSUB 970: LOCATE 5,20:P 

RINT"PUSH SPACE KEY. ..": GOSUB 1080: GOTO 890 

910 '============ N-A <#5> ============ 

920 GOSUB 950: FOR 1=0 TO 5 : LOCATE 4, 17+1 : A=0: FOR J 

=0 TO 7: IF TMCP*8+J)<>0 AND MKCP*8+J)=I THEN A=A+H 

KCP*8+J) 

930 NEXT: PR I NT F$C 1 );: LOCATE 16: PRINT USING" : HUH Ctt 

«tt)";WPCP, I), A: NEXT: GOSUB 1080:GOTO 150 

350 LOCATE 0,17: PRINT SPCC 192 );: RETURN 

360 Q=USR1C0):FOR 1 = 15 TO 8 STEP - 1 : PLAY"T255L64V= 

I;06CD"."T255L64V=I;07CD":NEXT:FOR S=0 TO 1000 : NEX 

T: RETURN 

970 Q=USR1C0):FOR 1=15 TO 7 STEP -1 : PLAY"T255L64Y= 

I ;03D","T255L8V=I;07D":NEXT:FOR S=0 TO 1 000: NEXT :R 

ETURN 



980 N$=CHR$CRNDC 1 )*44+l 77 ) : L=RNDC 1 )*4:F0R S=0 TO L 

: A=RNDC 1 )*45+176:R=INTCRNDC 1 )*4): IF R=2 THEN 1010 

ELSE IF R=3 THEN 1020 

990 N$=N$+CHR$CA) 

1000 NEXT: RETURN 

1010 IF S+1>=L THEN 990 ELSE IF CAM81 AND A<197) 

OR CA>202 AND A<207) THEN N$=N$+CHR$C A) + "" " : S=S+ 1 : 

GOTO 1000 ELSE 990 

1020 IF S+1>=L THEN 990 ELSE IF A>202 AND A<207 TH 

EN N$=N$+CHR$CA)+"°":S=S+1 : GOTO 1000 ELSE 990 

1030 AS=INKEY$:IF AS="" THEN 1040 ELSE IF A$<"0" 

R AS>"9" THEN 1030 ELSE LOCATE POSC0 )-l , CSRL IN: PR I 

NT A$: GOSUB 960 : R=ASCC AS )-48 : RETURN 

1'040 X=STICKC1): IF X=3 AND R<9 THEN R=R+1 ELSE IF 

X=7 AND R>0 THEN R=R-1 ELSE IF STRIGC1) THEN GOSUB 

960: RETURN ELSE IF STRIGC3) THEN R=0 : RETURN ELSE 
1030 

1050 LOCATE POSC0 )- 1 , CSRL IN: PRINT CHRSC R+48 );: FOR 
S=0 TO 100: NEXT: GOTO 1030 

1060 FOR S=X TO Y: N$CS)=NSCS+1 ) : ACS)=ACS+1 ) : SCS)=S 
CS+1):CCS)=CCS+1):RCS)=RCS+1):PCS)=PCS+1):KCS)=KCS 
+l):NEXT:NCX¥16)=NCX¥16)-l:FOR 1=0 TO 39: IF MCI)>X 

AND MCIXY+1 THEN MCI)=MCI)-1 
1070 NEXT: RETURN 

1080 Q=USR4C0):FOR I=-l TO 0:I=STRIGC0) OR STRIGC1 
):NEXT 
1090 OUT 170,22:S=INPC169): IF STRIGC0) OR STRIGC1) 

THEN S=0: RETURN ELSE IF STRIGC3) OR S=251 THEN S= 
-1: RETURN ELSE 1090 

1100 A=USR3CP*256+LCP)): IF A=255 THEN ST=A: RETURN 
ELSE X=A:IF A<8 THEN A=P*8+A ELSE A=A+24 
1110 LOCATE 2: PR HIT ">>>>"; MSC A) : RETURN 
1120 FOR 1 = 17 TO 22: LOCATE X, I : PRINT" I " ; SPCC 3 1-POS 
C0)); : NEXT: RETURN 

1140 GOSUB 950:LOCATE 1 , 17:PRINT M fc*fcfcC »0*tWfcLL3;Ttf 

«":GOSUB 1100:ST=A:A=0: IF ST=255 THEN RETURN ELSE 

IF MCST)=-1. OR MCST)¥16<>P THEN 1150 ELSE 1160 

1150 LOCATE 3, 19:PRINT"wffl ftCttot: W <" A,tt OJK^?- To " 

: GOSUB 1080: RETURN 

1160 FC=MCST): LOCATE 2 , 19 : PRINT"iffitt^H>SiJO ftA.ti\i " ; N$ 

(FC);"fc*«iri. " 

1170 LOCATE 3: PR I NT USING" : fcA.*lo «HttCS>) T9ZV? :««**" ; 

ACFC),SSCSCFC));CCFC) 

1180 LOCATE 3: PR I NT FSCRCFC) ) ; STRSC6-RCFC) ) ; "P" ; SP 

CC3);H$CRCFC)> 

1190 LOCATE 3:PRINT US I NG"S"-JI>K :«*««"; KCFC) : RETURN 

1200 '========== n'-fD-yh t s s9? ========== 

1210 IF NCP)>A*5+4 THEN C=A*5+4+P*16 ELSE C=NCP)-1 

+P*16 

1220 IF N$CA*5+P*16)=""THEN LOCATE 16 , 17 : PRINT"*" *l 

toKi. ": GOSUB 960 : R=-l : RETURN 

1230 X=7: GOSUB 11 20: FOR I=A*5+P*16 TO C: LOCATE 9,1 

7 + I-A*5-P*16:'PRINT NSC I):NEXT 

1240 IF NCP)>A*5+4 AND A<>2 THEN LOCATE 9, 22: PR I NT 

"Next":C=5 ELSE" C=C-A*5-P*16 

1250 B=USR2C&H4000+C): IF B=255 AND A=0 THEN R=-1:R 

ETURN ELSE IF B=255 THEN A=A-U-GOTO 1210 ELSE IF B 

=5 THEN A=A+l:GOTO 1210 ELSE B=A*5+P*16+B 

1260 LOCATE 16 . 17 : PRINT" : " ; NSCB) ; : IF RCB)<>6 THEN 

PRINT")" jMSCPCB)) ELSE PRINT 

1270 LOCATE 17:PRINT US I NG " AGE C «***») C& &)";ACB),SSC 

SCB)): LOCATE 17: PRINT USING"-'7ZV'7: «««" ;CCB) 

1280 LOCATE 17:PRINT FSCRCB) ): LOCATE 17:PRINT HSCR 

CB)): LOCATE 17 : PRINTS-UK* :"; KCB) : FC=B: R=0 : GOSUB 1 

080: IF S=-l THEN 1210 ELSE RETURN 

1290 •============ WjV ============== 

1380 Q=USR1C0): SOUND 7. 183: SOUND 8, 16: SOUND 11,255 
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: SOUND 12, 127: FOR 1=0 TO 9 : PUT SPRITE 2 , CX+RNDC 1 >* 

32 , Y+RNDC 1 >*32 ) , RNDC 1 )*15 , RNDC 1 )*2+2 : SOUND 6 , RNDC 1 

)*32: SOUND 13,0: FOR J=0 TO 10 : NEXT: NEXT: RETURN 

1310 Q=USR 1 < ): SOUND 6 , 3 : SOUND 7 , 156 : PLAY"t220v 13 1 

8o4c2.o3bo4cd2.cdel", "t220s0m6000 18o2aaaaa4aabbbbb 

4bbo3ccccc4ccc4", "t220sml8ccccc4ccccccc4ccccccc4cc 

c4":F0R S=0 TO 8000 : NEXT: RETURN 

1320 Al$="t225vl41 lo4cedv 13ddd" : Bl$="t225v 13 1 lo3go 

4co3b-vl2b-b-a":C$="t225s0m300018c4ccc4ccc4cccccc" 

: C1$=C$+C$+C$: A2$="o4eeeef f fo5c" : B2$=" v 13o3ccb-ao2 

b-b-b-b-" : C2$=C$+C$+C$+C$: A3$="o4ccccccccc4" : B3S=C 

2S+"c4" 

1330 Q=USRK0): SOUND 6 , 3 : SOUND 7,156:PLAY AIS.BIS, 

C1$:PLAY A1$.B1$,C1$:PLAY A2$, B2S, C2$: PLAY A2$,B2$ 

,C2$:PLAY A3$, B3$, B3$: FOR S=0 TO 8000 : NEXT: RETURN 

1350 DATA M1037)nLi.,ltO7^*'"i/ > 100 , 300 , 200 , 500 , M2 14*S 
JH—7, f* -LOv\-~ , 200 , 250 , 250 , 700 , MH26ir \\>%>, >Y JMMM , 30 
0,200,300, 1000,MH98S5-»T , fc" -L9-CJH, 400 , 150,350, 1300 
1360 DATA MHS9h*li/Krt"7*-5Vfi— .500, 100,400, 1500, SL 

MHK >D~ , ttfc" •5U-5 , 600 , 50 , 450 , 2000 , , 

,0,0,0,0. M999t" V-,U-«r -fc" -L, 500 , 200 , 9000 , 30000 
1370 DATA -?\*%7-S,7'?a7>, , )3.-y— , >,-)lll*X7.,?-< i J-tl,9-<'?z7 l y^*D 
, 3J17JT*" 7,, HX6-U* A,£<)&0 
1380 DATA" n n tip n n 

P Tl 
1390 DATA n' p " ' "o' 



q q 



n 



1400 DATA" P ' ' 
qn'q ' p n n 
1410 DATA"* ' 
q n 
1420 DATA 

r r ' * ' ' r r ' n'" 
1430 DATA" p r' r ' s t t' 
r n ' ' s' ' 
1440 DATA"'" r ' s '"' t t ","ab 

n ' s s t " 

1450 DATA"cde ns s s ' ","fgh' 

n ' n n ' ' ' " 

1460 '======== 7V>3't'-9 **35 ========= 

1470 DEFINT A-Z: LOCATE ,10:M$="<< GALAXY STORM >>T 

• Matsumoto. Presents. ": RESTORE 1510 

1480 FOR 1=0 TO 42: READ A$:CS=0:FOR J=0 TO 3 1 : D=VA 

LC "&H"+MID$C AS, J*2+l , 2 ) ) : POKE &HD000+I*32+J , D: CS=C 

S+D:NEXT 

1490 READ AS: IF VAL< "&H"+A$)=CS THEN PRINT MIDSCMS 

, 1+1, 1); :NEXT:RETURN ELSE PRINT:PRINT 1*10+15 10; "8 

' *}<Z Error ttoti^ L«)^• , X<ti~ SO ! ! " : END 

1500 '=========== T^3' f'-9 ========== 

1510 DATA C3B9D1C300D1CD6F00210000110008010010CD4A 

00EBCD4D00EB23130B78B120.0AF9 

1520 DATA F12100200100183EF0CD5600CD7E0021F0D21100 

0301A800CD5C0021A0D31100.0A55 

1530 DATA 2301A800CD5C0021F0D211000B01A600CD5C0021 

A0D311002B01A800CD5C002 1,0989 

1540 DATA 0010010008CD4A0057CB1FB2CD4D00230B79B020 

F0CD69002 100300 100083EFC, 096E 

1550 DATA CD56002150D41100380604C5E5D50108O0CD5C00 

E101200009EBE101090009C1 ,0A16 

1560 DATA 10E92170D411803801C000CD5C002170D406C0C5 

7E060807CB1E10FB23C1 10F3.0C6F 

1570 DATA 2170D40606C51 150D501 1000EDB0545D0 1F0FF09 

EB01 1000EDB02150D501 1000.0BB4 

1580 DATA EDB0626BC1 10DE2170D41 140390 1C000CD5C0021 

30D51 1203A012000CD5C00C9.0B96 

1590 DATA 2323237E87878787326DD1AF772BE57E3250D5CD 

69D2329BD22 1FFFF229CD2 18 , 0FEC 



1600 DATA 43060000 10FDCD69D22 19BD2BE282377FE03200D 

3A50D53CFE1 128283250D5 IB , 0C03 

1610 DATA 23FE07200D3A50D53DFEFF28173250D51812CD75 

D2B72041 329CD2CD80D2B720 , 0E70 

1620 DATA 44329DD23A50D587FE1030050E00811802C6304F 

06002 13ED2087E3297D2237E.0B56 

1630 DATA 3298D2219AD27E3CE60F772197D21 100 1B0 10400 

CD5C00 18882 19CD2BECA2 1D1 , 0CDC 

1640 DATA 3A50D5 18092 19DD2BECA2 1D13EFFE1772 100 1B3E 

CFCD4D00C92323E57E878787 , 0E89 

1650 DATA C687320BD2237E0E00713294D23E873293D2AF32 

95D2CD69D2329BD22 1FFFF22 , 0FA0 

1660 DATA 9CD206000010FDCD69D2219BD2BE282577FE0120 

0E3A93D2FE87282CD6083293.0DE1 

1670 DATA D21825FE05200E3AS3D2FE00281AC6083293D218 

13CD75D2B72023329CD2CD80.0DAA 

1680 DATA D2B7C252D2329DD22196D27E3CE60F772193D211 

001B010400CD5C0018A4219C.0D18 

1690 DATA D2BECA28D23A93D2D687CB3FCB3FCB3F1809219D 

D2BECA28D23EFFE17723AF77, 1 17F 

1700 DATA 21001B3ECFCD4D00C9AFCDD500B7C03E01CDD500 

C9AFCDD800B7C03CCDD800C9. 1013 

1710 DATA 3E03CDD800B7C03E06CD4101CB573EFFC8AFC900 

00000000000 1000000004F02.09A1 

1720 DATA 370A1F12072AFF4A0F62277A2F925712471A3722 

2732274A2F62377A378A5F1A.0828 

1730 DATA 57224F2A473A47524F62477A478A6F226F326F42 

675267625F7257824F323F9A.0B18 

1740 DATA 4FAA5FB267C25FD24FDA37DA1FDA0FD208400010 

1 4008020080F0FCFEC0C0F0 , 0EF5 

1750 DATA 58823 1022880C0F0FCCCFEFEFE3C7C3CF8FCFE18 

1C8480FF000414008080C0E0, 10FC 

1760 DATA 7C3838301830FF40071F6018303CFFFFE0F0F8F8 

FCFCFCFE42C3183C3C18C342, 100F 

1770 DATA 42C3183C3C18C34242C3183C3C18C34242C3183C 

3C18C34242C31B3C3C18C342.0AC8 

1780 DATA 0000001000000000103854E77E5438100000183C 

3C1 800000000 163C3C1 80000, 03FD 

1790 DATA 0000183C3C1800000000183C3C1800000000183C 

3C180000FF81818181B181FF,06FC 

1800 DATA 7050F07070F0507000F0303050353535F0F0F0F0 

F05050503523259595232525,0E33 

1810 DATA 303030353535355F00F0F0F05050505035353535 

25355F35 45 45 753735755 F5F.0 A3 3 

1820 DATA 5040405040405050F0F0F0705040F0F0F0F0F090 

8060F0F0F0F0F03020C0F0F0, 13D0 

1830 DATA F0F0F0B0A0A0F0F0F0F0F0F0E0E0F0F0000000F0 

000000009090909080806060, 12F0 

1840 DATA 0000F070504000000000F090806000000000F030 

20C000000000F0B0A0A00000 , 0930 

1850 DATA F0F0F0F0E0E0E0E0F0F0F0F0F0F0F0F02030383C 

383020000000FFFF00000000, 120A 

1860 DATA 187E7EFFFF7E7E180000183C3C18000005030102 

05090D060403040E0C141804.054F 

1870 DATA 80008000A093CCB0C03068101830380C07010100 

0D2D73A1C241060C 1802 1000,0845 

I860 DATA 83038303A2929A8642A272523262A23205030301 

02071B61E2410C2C300A0708.08A5 

1890 DATA F060F08040E1DB96408070382810381406030102 

05090C030C33C40A0E141904.08B2 

1900 DATA 800080038C36CC20C0B070261830260C03191902 

0B2 D73 A 1C241060C 1802 1C00.0803 

1910 DATA 803D9B012090998640AC76563666A0303D798EF3 

F3F34E3902 19366C5802 1C00 , 0C22 

1920 DATA B4EA11DDD9D10AF440AC76563666A03039001E01 

DA00 1770 1E00F006E0 160032 , 0C4D 

1930 DATA B8B85C5C2E2017D717D7202E5C5CB8B800000000 

000000000000000000000000, 06C8 
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10 '"MISSING. BAS" 

20 _MUSIC(1, 0. 1, 1, I, I, 1. 1) :CLEAR 6000:DE 

FINT A-Z:CALL BGM(1) :CALL PITCH (441) :GOT 

40 

30 PLAY #2, AJ. B$. C$. D$, E$. F$, G$. H$. 1$, J$ 

: RETURN 

40 _VOICE (§1 6, 81 6. 81 6, 81 6. 81 6, §33) 

50 P0KE&HFA3C, 30 

60 S0UND6, 9:SOUND7. &B001000 

70 SCREEN 1 : COLOR 14. 1, 1 

80 PRINT'Now playing <Missing link>" 

90 VPOKE8198, 33: VPOKE8199. 33: VPOKE8208. 1 

64:VPOKE8223. 143 

100 "* PSG Attack * 

110 H0$="G64r64r32r16": 'COW BELL 

120 J0$="C64r64r32" :'KICK 

130 '* Pitch Bend Data * 

140 DA$ = "8w64y16. 255 §w64y!6, 240 8w64yl6 

, 200 8w64yl6. 160 8w64y16, 1208w64y16, 80 6 

w64yl6. 40" 

150 UA$ = "8w64yl6. 908w64y16, 1308w64y16. 16 

08w64y16, 180 8w64y 1 6. 2008w64y 1 6, 210 8w64 

y16, 217" 

160 DB$ = "8w64y17. 255 8w64yl7. 240 8w64y17 

.200 8w64y17. 160 8w64y17. 1 208w64y 1 7. 80 8 

w64y17. 40" 

170 UB$="8w64y17. 908w64yl7, I308w64y1 7, 1 6 

08w64y17. 180 8w64y 1 7, 2008w64y1 7, 210 8w64 

y17, 217" 

180 DC$ = "8w64yl8. 2408w64y18, 160 8w64y18. 



UC$ = "8w64y18. 1 



143' 



y18. 120 8w64y18. 



200 UD$ = "8w64y19. 1008w64y19. 120 8w64y19. 

143" 

210 UE$ = "8w64y20, 1008w64y20. 120 8w64y20. 

143" 

220 '* Voice Data * 

221 * Syn Tom 

222 Pl$ = "y0, 18y2, 0y3, 7y4. 216y6, 102y7. 0" 

223 P2$ = "y0. 2y4. 217y6, 102" 
230 ' Slap Bass 

240 V$ = "838y0. 0y2. 77y5, 225" 

250 * ch A Scratch 

260 W$ = "858D64y2. 0y3, 5y32. 4"+DA$ 

270 ' ch B Scratch 

280 X$ = "858D16y2. 0y3, 7y33. 3"+DB$ 

290 ' Syn Brass 

300 Y$ = "835y6. 255y3. 7y2. 20" 

310 '* MML Data * 

320 T=120 

330 A$="T=t:V15 05 L16Q8" 

340 B$="T=t:V15 06 L16Q8" 

350 C$="T=t:V15 04 L16Q8" 

360 D$="T=t:V15 04 L16Q8" 

370 E$="T=t:V15 04 L1608" 

380 F$="T=t:V15 02 L16Q8" 

390 G$ = "T = t:V0Y23. 2508A15" 

400 H$="T=t:V13 05 L16" 

410 I$="T=t:S0 04 L4 M3000" 

420 J$="T=t:V10 01 L64" 

430 GOSUB30 

440 '*** INTORO *** 

450 A$ = "848«D1&D2. "+W$ 

460 B$ = "GI&G2&G8. <«"+X$ 

470 C$ = "r4&A2. &A1" 

480 D$=">r2&D24D1" 

490 E$="r2. 4E4&E1" 

500 F$="y37. 63r I r2. >E32E-32D32D-32C32<B3 

2B-32A32y37, 0" 

510 GOSUB 30 

520 '* 

530 A$="" 

540 B$="" 

550 C$="" 

560 D$="" 

570 E$ = " 

580 F1$ = "E8>Er16ED-r16Y37, 63D-Dr8r1 6Y37. 

0r8DE 

590 F2$="<E>r8E8 <B24>D-24r24 r16DE<A-AB 

G8. " 

600 F$=F1$+F2$ 

610 G$ = "HB!2. H16H16BI8 

620 G$ =G$ + "B ! 2B ! 8B ! 8B8H32H32H32H32 



630 H$ = " 

640 I$="r1r2.C" 

650 J$=J0$+"r2. rl6"+J0$+"r!6" 

660 J$=J$+J0$+"r4. M6"+J0$ + "r16" + J0$ 

670 GOSUB 30 

680 "** 

690 A$ = "V8r2. r8o6 82 E64"+UA$+"o782 E1&V 

9E1 &V1 0E2 V9o781 4D8D-24D24E-24E8. 

700 B$="V8r2. r8o6 82 E64"+UB$+"o782 E1&V 

9E1&V10O3848E2 V9o681 4D8D-24D24E-24E8. 

710 Cl$="V15rlr2r8o5825C32C32C64"+DC$+"o 

4C64"+DC$+"r16" 

720 C$=C1$+"rlr2r8o4858C64"+DC$+"V9814o5 

G16G-24G24A-24A 8. 

730 D$="82V7r1r1 06 D1&D2 V9814o4 

B8 B-24B24>C24D-8. 

740 E$="82V7r1r1 o7V11r2A1 V9814o4 

D8 D-24D24E-24E 8. 

750 F1 J = "E8. >Er16 <B24>D-24r24 r16 Dr4. r 

16" 

760 F3$="<E>r8E8 <B24>D-24r24r 1 6<G8EA8EB 

-B" 

770 F$=F1 $+F3$+Fl $+"<E>r8E8<B24>D-24r24< 

r!6G8>D-24D24E-24<E8. 

780 G$="H!B! 1 6H1 6H1 6H1 6H ! 1 6H1 6H1 6H1 6H! 1 6 

H 1 6H 1 6H 1 6H ! 1 6H 1 6H32H32H32H32 

790 G1$="H!BI16H16H16H16H!16H16H16H16H!1 

6H16H16H16H! 1 6H1 6H32H32H32H32 

800 G$=G$+G$+G$+G1$ 

810 I$="rlr1rlr2r4C8. 

820 J$=J0J+"r2. r8. "+J0$ + "r2. r8. 

830 J1$ = J0$ + "r2. r8. " + J0J + "r2. r8 

840 J$=J$+J1 $ 

850 GOSUB 30 

860 "*** [$ A 1-4] from D. S *** 

870 AJ="V15824o5 EGAB-r8 B4AGABM 6>Er 1 

6D2. 4D8. 

880 A$=A$+"o5 EGAB-r8 84AGABr1 6<Br 1 6A2 

. &A8. " 

890 B$="V15824o5r32EGAB-r8 B4AGABr32 Erl 

6D2. &D8. 

900 B$=B$+"o5r32EGAB-r8 B4AGABr32 Er16D2 

. &D8. " 

910 C$=Y$+"V11o6D8r16D16r2r8V12E64"+UCJ+ 

"Er16D8. >V11E8 E-E2 4E <G-1C2E2 

920 DJ="835V1 1o6A8r1 6A16r2r8V1 2B64"+UD$+ 

"Br16A8. >V11G8 G-G2 &G <A 1G2G2 

930 E$="835V1 1o6B8r1 6B1 6r2r8V1 2A64"+UE$+ 

"Ar 1 6G8. >V1 1 D-8CD-2&D-<D- 1 B2D-2 

940 F1$="o2E8. Er4 >DE<r 1 6E4>E<r4E8r8E8. 

Er8. »E 

950 F3$ = "o2A8. Ar8. >ADD-E<A4r8CG8>C8<r8 

G8. >G<AB>D>E" 

960 F$=F1$+F3$ 

970 G1 J="B!16H!8HB!8 HI 6H8B18H1 6H8. H32H3 

2HBI32H32 

980 G2$ = "H16H!8HB!8 HI 6H8BI8H1 6HBI8. H32H 

32H32H32 

990 G3$ = "B!16H!8H8 HI 6H8BI8H1 6H8. H32H32H 

32H32 

1000 G4$ = "B! 16H18HBI8 HI 6H8BI8H! 1 6HBI8. H 

I32H32H32H32 

1010 G$=G1$+G2$+G3$+G4$ 

1020 I1$="rcrc" 

1030 I$=I1$+I1$+I1$+I1$ 

1040 J1$=J0$+"r8"+J0$+"r4"+J0$+"r8r4"+J0 

$ 

1050 J2$ = "r8. " + J0$ + "r4" + J0$ + "r8" + J0$ + "r4 

1060 J3$=J0$+"r8. r4"+J0$+"r8. r4" 

1070 J4$=J0$+"r8"+J0$+"r4"+J0$+"r8"+J0$+ 

"r4" 

1080 J$=J1$+J2J+J3$+J4$ 

1090 GOSUB 30 

1 100 '*** [A 5-8] *** 

1110 A$="V15824o5 EGAB-r8 B4AGABr16>Er 

16D8. V12<A64&" + UA$ + ">G16r16B-B8Ar4 

1120 A$=A$+"o5V15EGAB-r8 B4AGABr 1 6>V1 2B- 

B8. Erl 6r24B24A24G24>D24&D24&D4E-64E64F64 

G-64G64" 

1130 B$ = "V15824o5r32EGAB-r8 B4AGABM6 Er 

16D8. V12<A64&" + UB$ + ">G16. B-B8Ar4r32 

1140 B$=B$+"o5V15EGAB-r8 B4AGABr32>V1 2G- 

G8. Erl 6r24B24A24G24>D24&D24&D4B64C64D-64 



D64E-64" 

1 1 50 GOSUB 30 

1 160 '*** [A 9-12] *** 

1170 A$="V15824o5 EGAB-r8 B4AGABV14A32 

B-32B>D32<B>D32<A32B-32B>D32<B>D32<BA32B 

-32B>DEGBA-A8 

1180 A$=A$+"o5V15EGAB-r8 B4AGABA32B-32B3 

2>D16. AB-BGEC32D-32D<AB-BGE<E8. 

1190 BJ="V15824o5r32EGAB-r8 B4AGABV14A32 

B-32B>D32<B>D32<A32B-32B>D32<B>D32<BA32B 

-32B>DEGBA-A8 

1200 B$=B$+"o5V15EGAB-r8 B4AGABA32B-32B3 

2>D 1 6. AB-BGEC32D-32D<AB-BGE<E8&E32 

1210 GOSUB 30 

1220 •*** [A 13-16] *** 

1230 A$="V15824o5 EGAB-r8 B4AGABrl6>Er 

16D2. &D8. 

1240 AJ=A$+"o5 EGAB-r8>E4D<B>DEr16 G8A 

B-BGEr8 G4 A8. 

1250 B$="V15824o5r32EGAB-r8 B4AGABr32 Er 

16D2. &D8. 

1260 B$=B$+"o5r32EGAB-r8>E4D<B>DErl6 G8A 

B-BGEr8 G4 A8. 

1270 CJ = "824V12o6D8r16D16r2r8. BM6D8. >E 

8E-E8. <G4. G 2. &G8. B&B2V1 5825o5E32E32C 

64"+DC$+"<C64"+DC$+"<G64"+DC$ 

1280 D$ = "824V12o5A8r16A16r2r8. Brl6A8. >G 

8G-G8. A4. <A 2. &A8. GiG2>E4E8. 

1290 E$ = "824V12o5B8rl6B16r2r8. Ar16G8. >D- 

8C D-8. D-4. <D-2. 4D-8. A&A2>A4A8. 

1300 F1$="o2E8. Er4 >DE<r1 6E4>E<r4E8r8E8 

. Er8. »E 

1310 F3$="o2A8. Ar8. >ADD-E<A4 >E8<GAB>GE 

r8G4A4 

1320 F$=F1$+F3$ 

1330 G4$="B! 16H18HBI8 HI 6H8B18H1 6HB18. 

1340 G$=G1$+G2$+G3$+G4$ 

1350 I1$="rCrC":I4$="rCrr8C8 

1360 I$=I1$+I1$+I1$+I4$ 

1370 J4$=J0J+"r8"+J0$+"r4"+J0$+"r8"+J0J 

1380 J$=J1t+J2$+J3$+J4$ 

1390 GOSUB 30 

1400 "*** [B 17-18 ] *** 

1410 A$="o6816 Br8>D8. E-8E8r 1 6E2rl 6 Br 

16Grl6A8. B 

1420 B$ = "o6816r32Br8>D8. E-8E8r32A2rl 6. Br 

16Grl6A8. B 

1430 C$="8l6o6r2r8. E2. 

1440 D$ = "816o5r2r8. A2. 

1450 E$ = "814o6r2r8. B2. 

1460 F$ = "o2Er8G8. A-8A8r 1 681 2E2. 

1470 GJ = "HB!4H4HB! 16H18. H8HBI8HB14H4HB! 4 

H4 

1480 I$ = "rCr8. Crl6rCrC 

1490 J$=J0J+"r8. r4"+J0$+"r16r4"+J0$+"r16 

1500 J$=J$+J0$+"r8. r4"+J0$ 

1510 GOSUB30 

1520 '*** [B 19-20 ] *** 

1530 A$="o6 Br8>D8. E-8E8H 6<E2r 1 6 >824 

ABAM6GA8G4 

1540 B$ = "o6r32Br8>D8. E-8E8r32<A2r 1 6. >824 

ABAr16GA8G8. 

1550 C$ = "816o6r2r8. E2. r16835 G4A4 

1560 D$ = "816o5r2r8. A2. rl6835>E4G-4 

1570 E$="814o6r2r8. B2. r16835 D4E4 

1580 F$ = "o2833Er8G8. A-8A8rl 681 2E2>r1 6833 

DE<E8B4>D-4 

1590 G$ = "HB!4H4HB! I6H18. H8HBI8HBI8H! 1 6H8 

. H 1 6H 1 6HB ! 1 6H ! 1 6H4H 1 32H I 32H ! 32H ! 32 

1600 I$="rCr8. Crl 6rCr8C8Cl 6C8. 

1610 GOSUB30 

1620 '*** [C 21-26 ] *** 

1630 A$="o6824 B8. Ar 1 6Er 1 6G8. Ar2>D8. E- 

8Er8. <G8. 

1640 B$ = "o5824r64B8. Arl6Er16G8. Ar2>D8. E- 

8Er8. <G8 

1650 C$=Y$ + "o6V13B2. B-8. B2. rl6>V15>D-8. 

1660 D$ = "835o6V13G2. G-8. G2. rl6 V15>A 8. 

1670 E$ = "835o6V13D2. D-8. D2. r16 V15>E 8. 

1680 F$ = "o3812V14DE<E8G8EA8. >DE<BG8GEr16 

E8G8EAD-8>D-<D-D8>D<D 

1690 G$="HS!B!16H16HC!8S!16H16H16HC! 1 6HS 

I B ! H 1 6H 1 6HC 1 8S ! H 1 6H 1 6H 1 6HC ! 1 6 
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1700 G$=G$+G$ 

1710 H$=H0$+"r8"+H0$+"r8"+W0$+"r8"+H0J+" 

r8" 

1720 H$=H$+H$ 

1730 I$="rCrCrCrC 

1740 J$=J0$+"r8. r4"+J0$+"r8. r4" 

1750 J$=J$+J$ 

1760 GOSUB30:GOSUB30:GOSUB30 

1770 IF Z$="Coda"THEN2800 

1780 Z$="Coda" 

1790 "*** [C 27-28 ] *** 

1800 A$="o6824 B8. Arl 6Erl 6G8. Ar2>D8. E- 

8Er8. GV1 1GV7GV3G 

1810 B$="o5824r64B8. Ar16Er16G8. Ar2>D8. E- 

8Er8. GV1 1GV7GV3G 

1820 C$=Y$+"o6V13B2. B-8. B2r4>r1 6V1 5r64D- 

V11D-V7D-V30- 

1830 D$="835o6V13G2. G-8. G2r4>r 1 6V1 5r48A 

V1 1 A V7A V3A 

1840 E$="835o6V13D2. D-8. D2r4>r1 6V1 5r32E 

VI IE V7E V3E 

1850 F$ = "o3812V14DE<E8G8EA8. >DE<BG8GEr16 

E8G8A-8A 

1860 G$="HS!B!16H16HC!8S!16H16H16HC!16HS 

IB! 16H16HC!8S!H16H16H16HC!16 

1870 G$=G$+"HS!B!16H16HCI8S!16H16H16HC! 1 

6HSIBM6 

1880 H$=H0$+"r8"+H0$+"r8" 

1890 H$=H$+H$+H$+H$ 

1900 I$="rCrCrCrC 

1910 J$=J0$+"r8. r4"+J0$+"r8. r4" 

1920 J$=J$+J$ 

1930 GOSUB30 

1940 '*** [D Bass solo 29-32 ] *** 

1950 POKE&HFA6C, 30 

1960 POKE&HFA7C. 60 

1970 BS$="E2. <B>D-D4. D-4B4A4A-8ED2r 1 6>D- 

r 1 60CD2 

1980 A$ = "" 

1990 B$=" 

2000 C$="" 

2010 D$="833o3V15"+BS$ 

2020 E$="833o3V15"+BS$ 

2030 F$="833o3rl6V15"+BS$ 

2040 G$="HB!4H4HB!8. B ! 1 6H8B ! 1 6C1 6 

2050 G1$ = "HB!4H4HBI16H8. H8H16H16 

2060 G$=G$+G$+G$+G1$ 

2070 H$="" 

2080 I$="rCrCrCrCrCrCrCr8C8C16C8 

2090 J$="" 

2100 GOSUB30 

2110 '»** [D Bass solo 33-36 ] *** 

2120 BS$=">E2. EF-AA-4r16E4D4<B4>DE-E<E8. 

GEA-A481 2DE<E2r 1 6G8>G<GA8>A 

2130 D$="833o3V15"+BS$ 

2140 E$="833o3V15"+BS$ 

2150 F$="833o3rl6V15"+BS$ 

2160 G1$="C!B!4H8H16H16HB!8H16H16H8H16HB 

!16 

2170 G2$="H16B! 1 6H8H8H1 6H1 6HBI8H1 6H1 6H8H 

16HC16 

2180 G3$="HB!16H16H8H8H16H16HB!8H16H16H8 

H16HC16 

2 1 90 G4$ = " HB ! 8H 1 6H 1 6H8H 1 6H 1 6H8 ! 8H 1 6H 1 6H8 

H16H16 

2200 G$=G1$+G2$+G3$+G4$ 

2210 I$="rCrCrCrCrCrCrCrC 

2220 GOSUB30 

2230 "*** [D Bass solo 37-40 ] *** 

2240 BS$=V$+ "07>DE«EE>DEGA>GA«E8>G<E8> 

A<D-8>D-<D-D8>D<DE-8>E-<E-E8>E<E>GA>E«E 

»G«EE»A«EE>»D<«EE>»E<«EE>»A<«E 

E>»G<«EE>»AB«EE>GE<AB<E. 

2250 D$="o3V15"+BS$ 

2260 E$="o3V15"+BS$ 

2270 F$="o3r32V15"+BS$ 

2280 GOSUB30 

2290 "*** [D Bass solo 41-44 ] *** 

2300 BS$=V$+"<EE>E<E>GA<EEEE>E<E>GA<EEEE 

>E<E»GA«EEEE>E<E>G>G<A->A-«AA>A<A»CD 

«AA>»D<«AA»>C<«AA>G<A GG»G«G>G<A- 

>A-A 

2310 A$="833o5V15r1rlr1r4. r 16EV1 1 EV7EV5E 

V3EV1E 

2320 B$="833o5V15r1 rl rl r4. r16Ar48V1 1AV7A 

V5AV3AV1A 

2330 C$="833o6V15rlr1 rlr4. r16Dr32Vl I DV7D 

V5DV3DV1D 

2340 D$="o3V15"+BS$ 



2350 E$="o3V15"+BS$ 

2360 F$="o3r32V15"+BS$ 

2370 G4$= "HB ! 8H 1 6H 1 6H 1 6H 1 6H 1 6H I B ! 1 6 

2380 G$=G1$+G2$+G3J+G4$ 

2390 I$ = "rCrCrCrCrCrCrC8. Crl6r 

2400 GOSUB30 

2410 '*** [E E. P solo 45-48 ) *** 

2420 P0KE&HFA6C. 

2430 POKE4HFA7C, 

2440 A$="816o5V15rlrlrlr2r<D>D 

2450 B$="816o5V15r1r1r1r2r<A>A 

2460 C$=Y$ + "o6V13D8. Dr1r2>F4D8. Dr2r1r16> 

VI 5G 

2470 D$ = "835o5V13A8. Arlr2>C4A8. Ar2r1r16> 

VI 5D 

2480 E$="835o5V13E8. Erlr2>G4E8. Er2r1rl6> 

VI 5A 

2490 Fl J = "D>D<DDF8DG8. >CD<AF8FDrl 6D8F8DG 

r 1 6>G<D8FGA>F 

2500 F$ = "Q8833o3V15CD<D8F8DG8. >CD<AF8FDr 

16D8F8DGD-8>D-<D-D8>0<D"+F1$ 

2510 G1$="HB!16H!8H8H16H8 

2520 G2$="HB!8H16H8. H16H16 

2530 G3$= "HB ! 8H 1 6H 1 6H ! 8H32H32H32H32 

2540 G$=G1$+G2$+G1$+G3$ 

2550 G$=G$+G$ 

2560 I$="rCrCrCrCrCrCrCrr16C8. 

2570 GOSUB30 

2580 '*«* [E E. P solo 49-52 ] *** 

2590 A$="o5 D>Dr16C2r16<B>Cr!6<B4. rl6A 

BGFDC<BAGrl6G8. >G8. F4A4G4D2FGA>A 

2600 B$="o5r32D>Drl6C2rl6<B>Cr16<B4. rl6A 

BGF0C<BAGr16G8. >G8. F4A4G4D2FGA>F 

2610 GOSUB30 

2620 '*** [E E. P solo 53-56 ] *** 

2630 A$ = "o5 CD-DF8. CD-DG8. GA-A>C<A>CF4 

>CD<Dr 1 6D>D<Dr 1 6D>C<A-AAA-AAA-AAA-AA>C<A 

Dr 1 6<FF>F<G-G->G-<GG>G<AA>A<B-B->B-B 
2640 B$="o5r48CD-DF8. CD-DG8. GA-A>C<A>CA4 
>CD<Dr 1 6D>D<Drl 6D>C<A-AAA-AAA-AAA-AA>C<A 

Dr 1 6<AA>A<B-B->B-<BB>B CC>C<D-D->D-D 
2650 GOSUB30 

2660 '*** [E E. P solo 57-60 1 *** 
2670 A$="o6 G4Gr16Fr16Gr16Er16FGr32G-3 
2G4r 1 6Gr 1 6Fr 1 6Gr 1 6Er 1 6FGr8 A6A6A6A6A6A6> 
C825"+P1$+"r4o4V12C64"+DA$ 
2680 B$="o6 D4Dr16Crl6Dr16Cr16DEr32D-3 
2D4r16Dr16Cr16Drl6Crl6DEr8 E6E6E6E6E6E6> 
Fr2o3825"+P1$+"V12C64"+DB$ 
2690 C$=Y$+"o6V13D8. Dr2r 1>V15r4D6D6D6D6D 
6D6>Er4o4823V 1 5C64 " +DCJ+ " r8. <C64" +DC$ 
2700 D$ = " 835o5V 1 3A8. Ar2r 1 >V 1 5r4A6A6A6A6A 
6A6>C 

2710 E$="835o5V13E8. Er2r1>Vl 5r4E6E6E6E6E 
6E6 A 

2720 F1$="D6D6D6D6D6D6 A 

2730 F$ = "833o3V15>CD«D8E8>E<EG8A8>CDrl6 
>C8D«D8E8>E<EG8A8>CDr8"+F1 $ 
2740 G1$="HB!CM6H!8H!BI8B!8H16H!B!8H!B! I 
8H! 16BM6HM6HBICI8 

2750 G2$=" H16H!B!8H16B!8H!B!16H8H!B!8H 
!8M!64M!64M!32B!32B!32 

2760 G3$="C!B!6C!B!6C!B!6C!B!6C!B!6C!B!6 
H!B!8H8H!16H16H16H!16H16H32H32H16H16B!H8 
H32H32H32H32 
2770 G$=G1$+G2$+G3$ 
2780 I$="rCrCrCrCrCrCrCrC 
2790 GOSUB30:GOTO 860:"D. S 
2800 '*** [ Coda ] *** 
2810 P0KE&HFA4C, 15 
2820 POKE&HFA5C, 45 
2830 P0KE&HFA6C. 60 

2840 A$ = "o6824V15B8. A.r 1 6Erl 6G8. Ar2>D8. E- 
8Er8. <r8 GA Br8>D<r8Ar8>Cr8<Gr8B-r8Fr8A- 
2850 B$ = "o5824V15B8. Arl6Er16G8. Ar2>D8. E- 
8Er8. <r8 GA>Br8>D<r8Ar8>Cr8<Gr8B-r8Fr8A- 
2860 C$=Y$ + "o7V15B4. . C8. Dr2<D8. E-8Er8. « 
858C64"+DC$ + "»824r16CDEr8Gr8Dr8Fr8Cr8E- 
r8<B-r8>D- 



2870 D$="835o7V15G4. 



E8. Gr2<D8. E-8Er8. « 
CDEr8Gr8Dr8Fr8Cr8E- 



G8. Ar2<G8. A-8Ar8. « 
EFGr8Br8Fr8Ar8Er8F 



r8<B-r8>D- 

2880 E$="835o7V15D4. 

858C8 »824 

r8 E-r8 F 

2890 F$ = "o3812V14DE<E8G8GA8. >Dr16DE-E<E8 

. r16D8. E-8Er4rl6 GABr8>D<r8Ar8>Cr8<Gr8B- 

r8Fr8A- 

2900 GJ="HS!B!16H16HC!8S!16H16H16H!B!I6H 



S!B!8. H!B!16H16H16H16C!B!4C!B!8. C!B!8C!B 
!4. HI16HM6 

2910 G$=G$ + "H!16B! 1 6B ! 1 6H! 1 6B! 1 6B I 1 6H! 1 6 
B ! I 6B ! 1 6H ! 1 6B ! 1 6B ! 1 6H ! 1 6B ! 1 6B ! 1 6H ! 1 6B ! 1 6 
B ! 1 6H I 1 6B I 1 6B ! 1 6H ! B ! 4B ! 1 6B ! 8. H ! 32H32H32H 
32 

2920 H$="":J$="" 

2930 I$=I$+"C8. C8. C8. C8. C8. C8. C8. Cr16D 3 
2M5000CM3000 
2940 GOSUB30 
2950 '* 

2960 A$ = "o6824 B8. Arl 6Er I 6G8. A826o3r 1 6 
"+P2$+"C64"+DA$+"c64"+DAJ+"r4824o7D8. 
E-8Er8. y32. 63G4 

2970 B$ = "o5824r32B8. Ar16Er16G8. A826o4r32 
r24"+P2J+"C64"+DB$+"C64"+DB$+"r8824o7D8. 
E-8Er8. y33. 63G4 
2980 C$ = "824o6V15B4. . C8. Dr2r64D8. E-8Er8y 

34, 63D-V14D-V13D-V12D-V1 1D-V10D-V9D-V8D- 
V7D-V6D-V5D-V4D-V3D-V2D-VlO-V0D-8v100D-8 
v90D-8v80D-8v70D-8v60D-8v50D-8v40D-8v30D 
-8v20D-8v10D-8v1D- 

2990 D$ = "824o6V15G4. . E8. Gr2r48D8. E-8Er8y 

35. 63A VI4A V13A V12A VI 1A V10A V9A V8A 
V7A V6A V5A V4A V3A V2A VIA V0A8vl00A 8v 
90A 8v80A 8v70A 8v60A 8v50A 8v40A 8v30A 
8v20A 8v10A 8v1A 

3000 E$ = "824o6V15D4. . G8. Ar2r32D8. E-8Er8y 

36. 63E V14E V13E V12E VI IE V10E V9E V8E 

V7E V6E V5E V4E V3E V2E VIE V0E8v100A 8v 

90A 8v80A 8v70A 8v60A 8v50A 8v40A 8v30A 

8v20A 8v10A 8v1A 

3010 F$ = "o3812V14DE<E8G8GA8. >Dr16DE-E<E8 

. H6D8. E-8E 

3020 G$="HS!B! 1 6H1 6HC !8S ! 1 6H1 6H1 6HCIB! 1 6 

HS ! B ! 4B ! 24M I 24H ! 24B I 24M I 24H ! 24 

3030 G$=G$+"H8H16H!B! 1 6H 1 6H1 6H !B!8B!H! 1 6 

3040 H$=H0$+"r8"+H0$+"r8" 

3050 I $=" rCr8C8r24r24Cl 2r24C24Cr2M6000C 

3060 GOSUB30 

3070 '*** [ Credit ] *** 

3080 A$="r1":B$="":C$="8v127":D$="8v127" 

:E$="8v127":F$="":G$="":H$="":I$="":J$=" 

3090 GOSUB 30 

3100 A$="833o4L4 G2r8C8E8G1 6A1 6B-AGFEC 

8<AA8>C8D 1 6D 1 6E-DC<A- 

3110 B$="833o4L4r32G2r8C8E8G1 6AI 6B-AGFEC 

8<AA8>C8D 1 6D 1 6E-DC<A-8. 

3120 C$="816o8L1C<B-AA- 

3130 D$="816o5L4CCCC<B-B-B-B->CCCCCCCC 

3140 E$="816o5L4r48EEEEEEEEFFFFFFFF8. 

3150 FJ="816o4L4r32GGGGGGGGAAAAA-A-A-A-8 

3160 LOCATE 0.24: GOSUB 3430 

3170 P0KE&HFA4C, 7 

3180 P0KE&HFA5C, 15 

3190 POKE&HFA6C, 30 

3200 FOR V=l TO 0STEP-5 

3210 A$="t80V=v:"+A$ 

3220 B$="t80V=v:"+B$ 

3230 C$="t80V=v:"+C$ 

3240 D$="t80V=v;"+D$ 

3250 E$="t80V=v:"+E$ 

3260 F$="t80V=v:"+F$ 

3270 GOSUB 30 

3280 NEXT 

3290 A$ = "t60v5r4 >CUC1 

3300 B$="t60v5r4B-l6>C1&C2. &C8. 

3310 CJ="t60v6o5r4 G1&G2&G4 

3320 D$="t60v6o4r4. A1&A2&A8 

3330 E$="t60v6o5r2 D1&D2 

3340 F$="t60v6o4r2r8E1&E4. 

3350 GOSUB 30 

3360 _BGM(0) 

3370 A$="r":B$="":C$="":D$=":E$="":F$=" 

":G$="":H$="":I$="":J$="" 

3380 GOSUB 30 

3390 PRINT:PRINT 

3400 PRINT"... Hit RUN for link ??":PRINT 

3410 END 

3420 ' *********************** 

3430 PRINT" Missing link " 

3440 PRINT 

3450 PRINT 

3460 PRINT"Written and arranged" 

3470 PRINT 

3480 PRINT'By Yohichi kitami 1990(0" 

3490 RETURN 
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**f — X \ TO MAKE THE END Of BATTLE 

mmm/xm-m 



******************************** 



To make the end of battle 
(Ys-2 theme) 

by Fa loom 

Corded by Masquerade 



******************************** 

■ Initialize 

120 _MUSIC(1. 0. 1, 1, 1. 1. 1. 1) :_TRANSPOSE(0 

) :_PITCH(443) 

130 CLEAR 5000: DIM AS (15) 

140 FOR 1=0 TO 15 

150 READ A$:AX(I)=VAL("»H"+A$) 

160 NEXT I 

170 CALL VOICECOPY(A*. ©63) 

180 DATA 0, 6472, 6F72. 6B63. 0. A. 0. 0, AA0, 44 

Fl, 20. 0, 232, 15F0. 60, 

190 T$="t125":PLAY#2. T$. T$. T$. T$, T$, T$. T 

$, T$. T$. T$ 

200 SOUND 7, 28: SOUND 6.8 

210 " MML data 

220 Al $="863o5v15116 d+ega8<aaa>c+<a*d<a 

>e<a>d<a>rl " 

230 A2$=">c+<ab-gafgeb-gafgefdc+defgab-> 

c+ec+<b->fc+<b-<ef " 

240 A3$ = "g4. ab->c+4. ef gfef gab->c+e4f 8g8 

250 A4$="fecd&d2<a>cdcfecd&d2<agfe" 

260 A5$="f&f8d&d8f8g&g8e&e8g8a&a8f&f8d8e 

&e8g&g8b-8" 

270 A6$ = " 1 1 6a2>'def gagf eg8. e8. c8<g8. >c8. e 

8" 

280 A7$="fd<afda>dfec<gecg>ce <dfa>c+dfa 

>c+d2" 

290 A8$="fd<afda>dfec<gecg>ce 86v14«132 

e-8. ce-g8. e-gb-8. gb->e-4" 

300 A9$="86o5v151l6 a4df ga8. g8fg8>d8. <a8 

gf8e8. f8. g8. " 

310 AA$="80o6v15 a4df ga8. g8fg8>d8. d8e8d8 

d4c+8. " 

320 AB$="816o6dfadfadfadfae-gb-g dfadfad 

f adf acceg" 

330 AC$="863o6v15116 dr8dr8dd8164d-c<bb- 

aa-gg-fee-d" 

340 ' 

350 Bl$="814o6vl5132 rleb-eb-eb-eb->c+gc 

+gc+gc+g 1 I6q6<ef g+fef g+a" 

360 BX$="o514r8. erl 6r2" : B2$=BX$+BX$ 

370 B3$="810o5vl3q6116 f f f f rl6f f 8f f f f r 1 6 

f f 8b-b-b-b-r 1 6b-b-8aaaar 1 6aa8" 

380 B4$=">ffffrl6ff8ffff rl6ff8b-b-b-b-rl 

6b-b-8aaaarl 6aa8" 

390 B5$="o5f>df<f>df<f>df<f>df<b->e-ge- 

<f>df<f>df<f>df<f>dfeeg>c«" 

400 B6$="810o5v14q6116 ar8ar8aa8" 

410 ' 

420 Cl$="814o6v13132 rlc+gc+gc+gc+gb->e< 

b->e<b->e<b->e 1 1 6q6«ab->c+<b-ab->c+d" 

430 CX$="o514r8. c+r 1 6r2" :C2$=CX$+CX$ 

440 C3$="810o5vl2q6116 ddddr 1 6dd8ccccr 1 6 

cc8 ffffr16ff8eeeerl6ee8" 

450 C4$=">ddddr16dd8ccccr16cc8 ffffrl6ff 

8eeeerl6ee8" 

460 C5$="o5da>d<da>d<da>d<da>d<e-gb-g da 

>d<da>d<da>d<da>dcceg<v7 " 

470 C6$="810o5vl3q6116 frl6frl6ff8" 

480 ' 

490 D1$="813o6vl3116r32fecd&d2<a>cdcfecd 

4d2<agfe32" 

500 D2$=" r32f &f 8d&d8f 8g&g8e&e8g8a&a8f &f 8 

d8e&e8g&g8b-16" 

510 D3$="r32116a2>defgagfeg8. e8. c8<g8. >c 

8. el6" 

520 D4$="r32fd<afda>dfec<gecg>ce rl" 

530 D5$="80o6v13116 f 4<a>def 8. e8de8b-8. b 

-8>c8<b-8b-4a8. 816v12" 

540 D6$="r32dfadfadfadfae-gb-g df adf adf a 



dfacceg32" 

550 ' 

560 El $="833o2vl4q4116 aaaaaaaaaaaaaaaa 

aaaagab-gaaaagab-g" 

570 EX$ = "aaa>a8. <aa>ager 1 6<a8aa" : E2$=EX$ 

+EX$ 

580 E3$=EX$+"aaa>a8. <aa>aa<aabb>c+c+" 

590 E4$='dddddddddddddddd cccccccccccccc 

cc" 

600 EY$="<b-b->fb->d<b-df ccg>cec<eg" :E5 

$=EY$+"ddfa>d<afd< a>age<aaaa>" 

610 E6$=EY$+"e-e-b-e-ge-ae-b-e->e-<e->g< 

e->b-<e-" 

620 EZ$="dd>d<dfa>cd<ff>f<fff>f<f":E7$=E 

Z$+"b-b->b-<b-b-b->b-<b-aa>a<a>g<a>a<a" 

630 E8$=EZ$+"b-b->b-<b-b-b->b-<b-aa>a<a> 

age<a. vl2" 

640 E9$="dr8dr8>cd<r16dfde-e-gb- dr8dr8> 

cd<r16dfdccec" 

650 EA$="o3d<a>cd<a>cdd8" 

660 " 

670 Fl $="814o2v1 2q41 1 6 aaaaaaaaaaaaaaaa 

aaaagab-gaaaagab-g" 

680 FX$="aaa>a8. <aa>ager 1 6<a8aa" : F2$=FX$ 

+FX$ 

690 F3$=FX$+"aaa>a8. <aa>aa<aabb>c+c+" 

700 F4$="dddddddddddddddd cccccccccccccc 

cc" 

710 FY$="<b-b->fb->d<b-df ccg>cec<eg" :F5 

$=FY$+"ddfa>d<afd< a>age<aaaa>" 

720 F6$=FY$+"e-e-b-e-ge-ae-b-e->e-<e->g< 

e->b-<e-" 

730 FZ$="dd>d<dfa>cd<ff>f<fff>f<f":F7$=F 

Z$+"b-b->b-<b-b-b->b-<b-aa>a<a>g<a>a<a" 

740 F8$=FZ$+"b-b->b-<b-b-b->b-<b-aa>a<a> 

age<a vl0" 

750 F9$="dr8dr8>cd<rl6dfde-e-gb- dr8dr8> 

cd<rl6dfdccec" 

760 FA$="o3d<a>cd<a>cdd8" 

770 " 

780 Gl$="vl5 r4rl6bl6sb8" 

790 GX$="bl6bl6s8bl6bl6s8bl6bl6s8bI6bl6s 

8":G2$=GX$+GX$ 

800 GY$="bl6bl6bl6sl6rl6sl6b8 bl6bl6bl6s 

16rl6sl6b8":G3$=GY$+GY$ 

810 G4$=GY$+"bl6bl6bl6sl6rl6sl6b8 bsl6bs 

16bsl6sl6sl6sl6bsl6sl6" 

820 G5$=GX$+"bl6bl6s8bl6bl6s8bl6bl6s8sl6 

Sl6s16sl6" 

830 G6$=GX$+ "bl 6bl 6s8bl 6bl 6s8bl 6bs 1 6s8bs 

16bsl6bsl6bsl6" 

840 G7$=GX$+ "b 1 6bl6s8bl6bl6s8bl 6ml 6r 16ml 

6m3 2m3 2m3 2m3 2m3 2m3 2m3 2m3 2 " 

850 GZ$="vl3 b8rl6b8rl6s8bl6bl6sl6bl6bl6 

bl6sl6bl6":G8$=GZ$+GZ$ 

860 G9$=GZ$+"b8rl 6b8rl 6s8bl 6bl 6s 1 6bl 6b 1 6 

vl5sbl6sl6sbl6" 

870 GA$="bl 6bl 6bl 6bl 6bl 6bl 6bs 1 6bs 1 6" 

880 " 

vl0o5e2g21 1 6»gec+<b-gec+<b->ef 



b-2>e2g4. f8e2" 

<b-2>e2g2<18ec+de" 

1 16dc<ga&a418>agf e" :H4$=HA$+HA$ 

18d. <a. >de. c. ef. d. <a>c+. e. gl6. 

<f2a4>d4e2c2" 

f2e2d2 18dc+<b>c+" 

f2e2 132vlb-v2b-v3b-v4b-v5b-v6b 

v9b-vl0b-vl Ib-vl2b-vl2b-vl2b-vl 

9b-v8b-v7b-v6b-v5b-v4b-v3b-v2b- 

vl 1 116o5 ar8ar8aa" 

v9o5116 c+2e2 »ec+<b-gec+<b-g> 

f + " 

"g2<c+2e4. d8c+2" 

"<g2>c+2e2<18c+<ab>c+" 

"o4116agef&f4>18fedc":I4$=IX$+I 

"<a. f. a>c. <a. >cd. <a. fg. >c+. el 6. 



1040 I6J="<d2f4a4>c2<g2" 

1050 17$=">d2c2<a218aaga" 

1060 I8J=">d2c2 132vle-v2e-v3e-v4e-v5e-v 

6e-v7e-v8e-v9e-v9e-v9e-v8e-v7e-v6e-v5e-v 



890 


H1$=" 


fl+fe 


fg+a" 


900 


H2$ = " 


910 


H3$=" 


920 


HA$ = " 


930 


H5$ = " 


940 


H6$ = " 


950 


H7J = " 


960 


H8$ = " 


-v7fc 


-v8b- 


Ib-v 


10b-v 


vlb- 


" 


970 


H9$=" 


980 




990 


11$=" 


c+dfdc+df 


1002 


12$ = 


1 01 e 


13$= 


1022 


IX$= 


X$ 




1032 


I5J= 



4e-v3e-v2e-vle-" 

1070 I9$="vl0o5111 fr8fr8ff" 

1080 ' 

1090 Jl$="s9m3000116o3 r4. c" 

1100 JX$="s9ml00 116ccm3000cm100cccm3000 

cml 00c ccm3000cml 00cccm3000cml 00c " : J2$= J 

X$+JX$ 

1110 JY$="m2000cml00ccm3000c8cml00cc m20 

00cml00ccm3000c8cml00cc":J3J=JY$+JY$ 

1 120 J4$=JY$+"m2000cml00ccm3000c8cml00cc 

m3000cm6000ccccccc" 
1130 J5$=JXJ+"ccm3000cml00cccm3000cml00c 

ccm3000cml 00cm3000cccc" 
1140 J6$=JX$+"ccm3000cml00cccm3000cml00c 

cm3000cccm5000cccc ' 

1150 J7$=JX$+"ccm3000cml00c ccm3000cml00 
c cccc 132ml 500cccccccc" 
1160 JZ$="m80ccccccml500cm80c ccml500cm8 
0cccml500cm80c":J8J=JZ$+JZ$ 
1 170 J9$=JZ$+"ccccccml500cm80cccml500cm8 
0ccm5000ccc" 

1180 JA$="116ml00ccccccm3000cc8" 
1190 " 

1200 X1t="r2" 
1210 ' 
10000 P=0 

10010 PLAY#2. XI $. XI $. XI %. XI $, XI $. XI $, G1 $ 
,X1$.X1$. J1$ 

10020 PLAY#2. A1$. B1$. CI $. XI $. E1$. F1J.G2J 
.H1$. 11$. J2$ 

1 0030 PLAY#2. A2$. B2$. C2$, XI $. E2$. F2$, G3$ 
, H2$. 12$. J3$ 

10040 PLAY#2. A3$, B2$, C2$. XI $. E3$. F3$. G4$ 
,H3$. 13$. J4$ 

10050 PLAY#2. A4$.X1$. XI$.X1$, E4$. F4$. G2$ 
. H4$. 14$. J2$ 

1 0060 PLAY#2. A5$. XI $. XI $. XI $. E5$. F5$, G5$ 
.H5$. 15$. J5$ 

1 0070 PLAY#2. A6$. XI $. XI $. XI $. E4$. F4$. G2$ 
.H6$, 16$. J2$ 

1 0080 PLAY#2. A7$, XI $, XI $. XI $. E5$. F5$, G6$ 
. H7$. 17$, J6$ 

10090 PLAY#2. "813o6vl5"+A4$, X1$.X1$. D1$. 
E4$. F4$.G2$. H4$, 14$. J2$ 

10100 PLAY#2. A5$.X1$. X1$.D2$. E5$. F5$, G5$ 
. H5$. 15$. J5$ 

101 10 PLAY#2, A6$, XI $. XI $, D3$. E4$, F4$. G2$ 
,H6$. 16$. J2$ 

10120 PLAY#2. A8$,X1$, XI $. D4$. E6$, F6$. G7$ 
. H8$. 18$. J7$ 

10130 P=P+1:IF P=3 THEN 10190 
10140 PLAY#2, A9$, B3$, C3$. XI $. E7$. F7$, G2$ 
,X1$.X1$. J2$ 

1 01 50 PLAY#2. AA$, B4$, C4$. D5$. E8$. F8$, G5$ 
,X1$.X1$. J5$ 

1 01 60 PLAY#2. AB$, B5$. C5$. D6$. E9$. F9$. G8$ 
.X1$.X1$, J8$ 

101 70 PLAY#2. AB$. B5$. C5$. D6$, E9$. F9$. G9$ 
.X1$.X1$. J9$ 
10180 GOTO 10020 

10190 PLAY#2. AC$. B6$. C6$, XI $. EA$. FA$. GA$ 
, H9$. 19$. JA$ 



*Y— ^ OPEN YOUR HEART 



100 '***** Open Your Heart ***** 

1 10 CALLMUSIC(0. 0, 1. 1 . 1. 1. 1 . 1. 1. 1 . 1) 

120 CLEAR2000:DEFINTA-Z 

130 FORI=0TO8:READA:POKE&HFA2C+16*I. A:NE 

XTI:DATA 0, 31. 0, 15, 15. 31. 31. 0. 31 

140 A$ (1) ="L8EC+DEGF+A4&AGF+GF + EDEC+2&C+ 

DEGE2&EC+DEF+<A>DF+GF+EDF+<A>DF+GF+EDF+< 

A>DF+GF+EDF+2GF+GB-AEF+A>D<EF+A>D<EGB>D< 

F+GB-A>D4D2. D2<B-2>" 

150 A$ (2)=A$ (I) +"D1&D1<" 

160 A$ (3)="R16"+A$ (1) +"D1&D2. &D8. <" 

170 B$ (1) ="L8AA4. >DD4<B>C+DDDD<B-B-GAEAG 

&GG>C+D<AEAG&GEG>C+D<DF+AB-AGF+ADF+AB-AG 

F+ADF+AB-AGF+ADF+AB-AB->C+D2C+2<B2B-2AEF 

+A>D<EF+AB-AGDDEGB-AEF+A>D<EF+A>" 

180 B$ (2)=B$ (1)+"D1<" 

190 B$ (3) ="R64"+B$ (1) +"D2. &D8. &D32. <" 

200 B$ (4) ="R32"+B$ (1) +"D2. &D8. &D32<" 




140 ^^W 



*a=iT\ — 



MUSIC NO KOKORO 



210 Bt (5)="R16"+Bt (1) +"D2. &D8. <" 

220 Bt (6) ="R08"+Bt (1) +"D2. &D8<" 

230 T=106:PLAY#2. "T=T; VI 20681 6". "T=T:V06 

06816", "T=T;V08O5816". "T=T; V07O5816". "T = 

T;V05O5816". "T=T; V04O581 6", "T=T: V03O581 6 

". "T=T:V04O48I6". "T=T : V02O481 6". "T=T;V04 

06", "T=T;V03O6", "T=T;V01O6" 

240 PLAY#2. A$ (2) . A$ (3) . B$ (2) . B$ (3) . Bt (4) 

. Bt (5) . Bt (6) . B$ (2) . Bt (4) , At (2) . B$ (2) , BJ ( 

5) 

250 GOTO240 




ANCIENT YS VANISHED 

"FEENA" Ver2. 

FROM YS OPENING (FM Ver) 
BY PAM 1989-1990 



1 

20 

30 

40 
50 
60 •" 

70 

100 REM ===== PROGRAM INTO 

1 10 CLEAR 4000 

1 20 CALL MUS IC (0, 0. 1 , 1 . 1 , 1 . 1 . 1 . 1 , 1 , 1 ) 

1 30 SOUND 7. 156: SOUND 6, 

140 DEFSTR A-N:DEFINT 0-Z:N="T68" 

1 50 PLAY#2. N. N, N, N, N. N. N. N. N. N, N, N 

160 DIM X(15) 

170 POKE &HFA3C. 8: POKE &HFA6C, 8 

180 POKE &HFA8C, 8: POKE &HFA9C. 8 

190 FOR 0=5 TO 13:READ A:X (0) =VAL ("&H"+A 
) : NEXT : DATA E, 0, 0. 2022, I 0F 1 , 0. 0. 22. 1 0F 1 
200 REM ===== MMLS 

210 REM -- PART 1 

220 A="BAG+F+AG+F+E":A0="841OV13"+A+A 

230 C0="833OV11"+A+A 

240 D="L1EEEE":D0="8 9V13"+D 

250 F="L1R1C+R1C+":F0="8 9V13"+F 

260 G="L16 05 R1R1 V3EV4EV5EV6E V7EV8EV10 

EV12E EEEE EEEE EV11EV10EV9E V8EV7EEV6E 

EEV5EE EE 

270 G0="84O6V5QL1R1R1E&E":I0=G:J0="R24"+ 

G 

280 A="ED+C+D+":A1="L2"+A+A 

290 D1="F+F+F+F+":F1="<BBBB>" 

300 G=" R1R1 02 V3BBV4BB V5BBV6BV7B V8BV 

9BV10BV11B BBBB BBBB BBBB BBBB BBB 

310 G1="03R1R1B&B":I1=G:J1="R24"+G 

320 REM -- PART 2 

330 A= " RGG8G&G2 " : A2= " 8330V 1 1 L 1 6RR 1 6G8G&G 

2"+A+A+A 

340 B="RDD8D&D2":B2="833OV10L16"+B+B+B+B 

350 F2="85V1202L1EEEE" 

360 H="L12V7CV6CV5CV3CV1CC" 

370 I="L12V9BV8BV7BV6BV5BB" 

380 H2=H+H+H+H+H+H+H+H:I2="08"+I+I+I+I+I 

+I+I+I 

390 J="L32V1 2F+V1 1 F+Vl 2EV1 1 EV1 2F+V1 1 F+Vl 

2BV1 1BL16V12F+F+V10F+F+V8F+F+V 5F+F+V12E 

V10EV 8EV 5EL32V12F+V10F+V 8EV 5EV12F+V1 

1F+V10BV 9BL16V12F+F+V10F+F+V8F+F+V 5F+F 

+V12DV10DV8D":J2="O5R1R1"+J+"V5D 

400 D2 = "84Q806R1Rr + J + "V5D":E2 = "84Q806Rl 

R1R24"+J 

410 BZ="R4CC8C&C2" 

420 A3=A+A+A+A:B3=BZ+BZ+B+B 

430 F3="FFEE" 

440 DZ="E4A1R2. "+D 

450 J3="V12EV10EV8EV5E V 1 2AV 1 0AV8AV5AV4A 

V3AV2AV1AV0AAAA R1 "+J 

460 E3="R24"+J3:J3=J3+"V5D 

470 A4=A+A+"Q8F+1F+1F+1F+1" 

480 B4=BZ+BZ+"<Q8B1B1B1B1>" 

490 F4="FFEEEE 

500 J= " L 1 6V 1 2EV 1 0E V8E V5E<V 1 2AV 1 0AV8AV5AA 

V2AAA>":J4=J+"L16V12CV10CV8CV5C"+J+"L16V 

12DV10DV8DV5D<V12BV10BV9BV8BV7BV6BV5BV4B 

V3BV2BV1BV0B4B 

510 E4="R24"+J4 

520 14=12+1+1+1+1 :H4=H2+H+H+H+H 

530 '-- PART 3 

540 A5 = "863V12O6L16O8EDE8Y0, 66Y1, 668W4Y0 

, 2Y1. 2<A8B8>C8D8 EDE8Y0, 66Y1, 668W4Y0. 2Y1 

. 2<A8B8>C8E8 

550 C="EC<AF>":D="D<BGE>" 

560 I="V1 1EV9EV1 1CV9C<V1 1AV9AV1 1FV9F>" : J 

="V1 1DV9D<V1 1BV9BV1 1GV9GV1 1 EV9E> 



570 CZ="L16"+C+C+C+C+C+C+C+"EC<A 

580 C5="84O7Q4V10"+CZ+"F>" 

590 D5="8407Q6V8R24"+CZ+"> 

600 F5="86 FF 

610 I5="06L32"+I+I+I+I+I+I+I+I 

620 E="R16CCDC4 R16 CCDED8. 

630 E5="0784V907L16"+E+E 

640 J5="V906L16"+E+E 

650 A6=*DCD8Y0. 66Y1. 668W4Y0, 2Y1. 2<G8A8B8 

>C8 DCD8Y0, 66Y1, 668W4Y0, 2Y1 , 2<G8A8B8>D8 

660 CZ=D+D+D+D+D+D+D+"D<BG 

670 C6=CZ+"E>" 

680 D6="R24"+CZ+"> 

690 F6="EE 

700 I6=J+J+J+J+J+J+J+J 

710 E="R16<BB>C<B4 R16 BB>CDC8. * : E6=E+E 

720 G="R1R880L16O7BBGGEEGGEEV8CCV4<A" 

730 G6="V12"+G:H6="V10R24"+G 

740 A7 = "DCD8Y0, 66Y1, 668W4Y0. 2Y1. 2 L8 GAB 

>C DY0. 66Y1. 668W8Y0. 2Y1. 2<BY0. 66Y1, 668W8 

Y0, 2Y1. 2GY0. 66Y1, 668W8Y0. 2Y1, 2DY0, 668W4Y 

1.668W4. Y0. 2Y1. 2 

750 C7=D+D+D+D+"L4BGD<B2. 

760 D7="R24"+C7 

770 E7=E 

780 F7="EE&E 

790 I7=J+J+J+J+"L4V8BGD<B 

800 G7 = "R1L4>BGD<B2. " :H7 = "R24"+G7 

810 REM ===== MMLS PLAYING I 

820 _ VOICE COPY (X. 863) 

830 PLAY#2. A0. A0. C0. D0, C0. F0. F0. G0, NN, 10 

.J0 

840 PLAY#2,A1,A1. Al.DI.AI.Fl.FI. Gl.NN, II 

. Jl 

850 PLAY#2. A2, B2. A2. D2, D2, F2. F2. B2. E2. 12 

. J2. H2 

860 PLAY#2. A3. B3, A3. D3. J3, F3. F3. B3. E3. 12 

. J3. H2 

870 PLAY#2. A4. B4, A4. D4, J4. F4, F4. B4, E4. 14 

. J4. H4 

880 POKE &HFA3C, 24 

890 PLAY#2, A5, A5, C5. D5. E5. F5. F5. NN. NN, 15 

. J5. NN 

900 PLAY#2. A6. A6. C6. D6. E6. F6. F6. G6. H6. 16 

. E6. NN 

910 PLAY#2. A5. A5. C5. D5. E5. F5. F5. NN. NN. 15 

. J5. NN 

920 PLAY#2. A7. A7. C7. D7. E7, F7. F7. G7. H7. 17 

. E7, NN 

930 POKE &HFA3C. 8:MIDt (A2. 12)="G" 

940 GOTO 850 







Music from Ys III 
"Wanderers from Ys" 



Programed by Tsuchida Oyaji 



70 _MUSIC(1. 0, 1. 1. 1. 1. 1. 1) :CLEAR500 

80 .PITCH (442) 

90 Tt="t120v15":PLAY#2, Tt. Tt, Tt. Tt. Tt. T$ 

,Tt. Tt, Tt 

100 ' 

110 ' Intro. 1 

120 At="812ob4. e!6f+1618b>daf+4d4e&e2<b4 

. e16f+16b>daf+4d4e4ab4 

130 Bt="812ol4f+. r8r2r2r2f+. r8r2r2r8o5e8 

f + 

140 C0t="816q718o7r4v13f+vl 1 f +v9f +v7f +v5 

f +v1 3ev1 1 ev9ev7ev5ev3ev1 er4" :Ct=C0t+C0t 

150 D0t="80q6o6116ef+q8b8&b2. &bl":Dt=D0t 

+D0$ 

160 E$="816o611f+&f+f+4f+ 

170 F$ = "832o211e&e2&e4. al 6b 1 6e&e2ie4. al 6 

b16 

180 PLAY#2, A$. B$. Ct. D$. Et. F$ 

1 90 PLAY#2. A$, B$. C$, D$, Et. Ft 

200 " 

210 ' Intro. 2 

220 At="80o6116f+gf+ef+1&f+1 

230 Bt="80o6rl6116f+gf+el&e1 

240 CJ = "v13r"l 18bgaf +gef +dec+d<b>c+<abg4 

250 D$="816o6bl&bl&b1 

260 Et="o6f+1&f+l&f+1 

270 Ft="11eee>r814c<bg8d 



280 PLAY#2. At. BJ. Ct, Dt. Et. Ft 

290 ' 

300 " 

310 CA$="egabegab" :CB$="cdf +bcdf +b" 

320 CCt="dgabdgab" 

330 Clt="o7q518"+CAt+CAt+CBt+CBt 

340 C2t=CCt+CCt+CAt+CAt 

350 C3t=CCt+CCt+"v9"+CAt+"v6"+CAt 

360 D1$="86v14o512bbbbbbaa 

370 D2t="bba>d<bbbb 

380 D3t="bba>d<b89v15bv12bv8b 

390 E1t="86v14o512f+f+f+f+f+f+ee 

400 E2t="f+f +eaev15ed+v1418ef+ga 

410 E3$="f+f+eae89v15ev12ev8e 

420 F1t="o312eeeedddd 

430 F2t="ccdd<bbb»18c. <b. g 

440 F3t="ccd>d<el&le<b. >d. 

450 RA$=" vl 5bc2bsh8v0m8m8v1 5bc8" : RBt="bc 

2 

460 R1t=RAt+RAt+RAt+RAt 

470 R2t=RAt+RAt+RAt+RBt 

480 R3t=RAt+RAt+RBt 

490 Pl$="osm40000b1. a4b4b2. a8a1 

500 P2$="b2. a8a2. g8a8b1. r8e8f + 8g8a8 

510 P3$="b2. a8a2. g8a8e1 

520 Slt="osm40000f+1. f+4g4g2. f+8f + 1 
530 S2t="g2. f+8f+2. c8e8f + 1. 

540 S3t="g2. f +8f+2. d8f+8o3b1 

550 PLAY#2. "". "".Clt. Dlt. Elt. Fit. Rlt. Pit 

..Sit 

560 PLAY#2. ""."". C2$. D2t. E2$. F2$. R2$. P2J 

. S2$ 

570 PLAY#2. "". "".C1$. Dl$. El$, Fit. Rlt. Pit 

.Sit 

580 PLAY#2. "", "".C3t. D3t. E3t. F3t. R3t. P3t 

,S3t 

590 GOTO90 







10 CALL MUSIC(0. 0, 1 . 1 . 1. 1. 1 , 1. I. 1 . 1) 

15 S0UND7. 49 

20 PLAY#2. "T123", "T123", "T123". "T123". "T 

123". "T123". "T123". "T123". "T123". "T123". 

"T123". "T123" 

30 .VOICE COPY (813. 863) 

40 _VOICE (863. 863. 823. 863. 863. 863. 81 2, 81 

4. 863) 

50 _AUDREG(1. 53) 

51 .TRANSPOSE (+700) 
60 PLAY#2. "Y5. 1 12" 
80 _P ITCH (442) 

90 P0KE&HFA2C+16*1, 30 :P0KE&HFA2C+1 6*2. 90 

: P0KE&HFA2C+ 1 6*3. 1 00 : P0KE&HFA2C+ 1 6*5, 30 : 

P0KEiHFA2D+16*6. 10 

1 00 At="V 1 306L4CCCGCCCACCCGCCC<B 

110 Wt = "V1505L1CL2D. L 1 6FGABL1CL2D. L16GFE 

D 

120 Bt = "R8V1305L4F+. L16EFL8B>DAL4F+DL8E4 

L2E<L4F+. L 1 6EFL8B>DAL4F+DEL8AL8B 

130 Qt="V1405L4B. LI 6EFL8B>DAL4F+DL8E&L2E 

<L4B. L16EFL8B>DAL4F+DEL8AL4B 

140 Ct = "V1303L1C4L2C. &L8CL1 6FGL1C4L2C. &L 

8CL16FG 

200 FOR 1=0 TO 1 

210 PLAY#2, At. Qt. Wt. Bt, Bt, Ct. Ct. Qt. Qt 

220 NEXT I 

230 A1t="V1306R1LlC&C >L4CCCCDDDDEFGA 

240 W1t = "V1507L16AAAAiL2A. L1A4A&A&A&A 

250 B1t="R8V1505LlF+>L8BGAF+GEFDED-D<B>D 

-<AB>L1AAL2FL4G. L16FG 

260 Q1t="V1505L1F+>L8BGAF+GEFDED-D<B>D-< 
ABGL1AR1>L2FL4G. L16FG 

261 C1t = "V1505L8CCL2C. L4CL8CCL4DL8DDL4CL 
8CCL4CL8CCR8L8A. L4GL8E. L2<B<L2EL8FGL4AL8 
AAL4B>L8CD 

299 P0t = "S10M10000RlRlR1RlRlR2. L16CCCC 

300 PLAY#2, Al t, Q1 1, W1 1. " ", B1 1. CI t. CI t. 
It, Alt. P0t 

320 W2t=" VI 503L4CL8CCL4CL8CCL4CL8CCL4CL8 

CCL4CL8CCL4CL8CCL4CL8CCL4CL8CCL4CL8CCL4C 

L8CCL4CL8CCL4CL8CCL4CL8CCL4CL8CCL4CL8CCL 

4CL8EF 

330 B2t = "V1506L1B. L4ABL2B. L8AA&LIAL2B. L8 

AAA&L2AL8GAB&L1B. L8E + FGA 

340 Q2t = "V1506LlF+. L4FGL2G. L8EE&L1EL2B. L 

8AAA&L2AL8GAB&L1B. L8E+FGA 
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350 C2$ = "V1507L1CC<AABB>CL4CR4L8A. G. E 

360 P$="S10M30000O2L1CR1CR1CR1CR2L4CC 

370 V2$="V110511AAAAAAAA 

380 M2$="V1105L1DDDDDDDD 

390 PLAY#2, W2S, Q2S, W2S. B2S, B2$, C2S. W2$, Q 

2$. 02$. PS. V2$. M2$ 

420 B3$="Vl506LlB. L4ABL2B. L8AA&L1 AL2B. L8 

AA&L2A&L8AGAE&L1E&L2E. 

430 03$="V1506L1F+. L4FGL2G. L8EE&L1EL2B. L 

8AA&L2A&L8AGAE&L1E&E 

440 C3$="V1507L1CC<AABB>C&L4C«G. B. 

444 P1$="S10M30000O5L1CR1CRICR1CR2M07000 

L8CL16CCL8CL16CC 

470 PLAY#2. W2S. Q3$, W2$, B3S. B3$, C3$. W2S, Q 

3$. Q3S. P1$. V2S. M2S 

480 GOTO 200 




SEE YOU AGAIN 



10 CLEAR 3000 

20 _MUSIC(1. 0. 1. I. I. 1. 1. 1) 

30 _PITCH(445) :_TRANSPOSE (-6) 

40 SOUND 6. 29: SOUND 7.28 

50 DIM AX (15) 

60 FOR 1=0 TO 15 

70 READ A$:A*(I)=VAL("&H"+A$) 

80 NEXT I 

90 _VOICECOPY (A*. §63) 



1 1 DATA 

120 DATA 

130 DATA 1A31. 1 IE], 

140 DATA 0061. 13C1. 

150 ' 

160 A0$ = "tl66116r4er8. f4. r8g4. f2r8r4er8. 
f 4. r8d4. e2" 

170 80$="tl661l6r4cr8. c4. r8d4. c2r8r4cr8. 
c4. r8<b4. >C2" 

180 C0$ = "tl66116r4ar8. a4. r8b4. a2r8r4gr8. 
a4. r8g4. g2" 

190 P0$="c8>cc<c8>cc<c8>cc<c8>cc<c8>cc<c 

8>cc<c8>cc«a8gg>" 

200 D0$="tl66116"+P0$+P0S 

210 S0$="hb!8hl6hl6hb!8hl6hl6hb!8hl6hl6h 

b!8hl6hl6" 

220 Sl$ = "hb!8hl6hl6hb!8hl6hl6hb!8M6hl6h 

8hl6hl6" 

230 T0$="tl66v58a15"+S0$+Sl$+S0$+SI$ 

240 N0$="tl6116s0m5500rlr2. g4rlr2. g4" 

250 ' 

260 Dl S=P0$+"c8>cc<c8>cc<c8>cc<c8>cc<c8> 

cc<c8>cc<c8>cc<c8>cc<" 

270 T1$=S0S+S1$+S0$+S0$ 

280 Nl$ = "rlr2. g4r 1 r2g8gg8gg8" 

290 ' 

300 Al S = " 18der8er8dcg2r8a4g4>c4r8<a4g4r8 

e4dcr8er8<g" 

310 Bl$="18r8cr8cr8<g4r8>d4ec4d4r8e4r8<a 

4r8>e4e4r8<g4r8>e4" 

320 D2$=" 18c>c<c>c<c>c<c>c«b>b<b>b<b>b< 

b>b<a>a<a>a<a>a<a>a<g>g<g>g<g>g<g>g<" 

330 T2$=S0$+S0$+S0$+S0$ 

340 P0$="r4g4r4g4" :N2$=P0$+P0$+P0$+P0S 

350 ' 

360 A2S="a2r8a>cf r8er8gr8edcd4r8<a4r8>cr 

8<b4>cdr8<g4>" 

370 B2$="r8fr8f r8f edr8gr8gr8gf ef 4ef r8f r8 

fg4fgr8gr8g" 

380 D3$="f>f<f>f<f>f<f>f<e>e<e>e<e>e<e>e 

<d>d<d>d<d>d<d>d<g>g<g>g<g>g<g>g" 

390 PI $=" r4g4r4ggg8" :N3$=P0S+P0$+P0$+P1 $ 

400 ' 

410 A3$="a4r8>cr8fgf<a-4r8>cr8fgfe2*ed<g 

>g&g2. " 

420 B3$ = "c4r8<a4g4f>c4r8<a-4g4f g4. d4g4b> 

d<gb>dg<b>dg" 

430 D4$="f>f<f>f<f>f<f>f<f>.f<f>f<f>f<f>f 

<g>g<g>g<g>g<g>g<g>g<g>g<g>g<g>g<" 

440 P2$="r4g4r4gggg":N4$=P0$+P0$+P0S+P2S 

450 ' 

460 A4$="a2&ar8b>cic2r8c<b>c&cl r8<br8br8 

ag4" 

470 B4S="e2&er8eai.a2r8aga&al r8gr8gr8ed4" 

480 Cl$="18c2&cr8de&e2r8ede&elr8dr8dr8c< 

b4>" 

490 D5$=" 1 1 6aa>aa<aa>aa<aa>aa<aa>aa<gg>g 

g<gg>gg<gg>gg<gg>gg<ff>ff<f f>ff<ff>ff " 



500 D5$=D5$+'<ff>ff<gg>'gg<gg>gg<gg>gg<gg 

>gg<" 

510 S2$="b!4b!4bI4b!4":T3$=S2$+S2$+S2$+S 

2$ 

520 N5$="rlrlrlr2r4g4" 

530 " 

540 N6$="rlrlrlr2r4ggg8" 

550 ' 

560 AS$="a>cec<a>cec<a>cec<a>cec<" :A5$=" 

116"+AS$+AS$+AS$ 

570 A5$=A5$+"gb>e<bgb>e<bgb>e<bgb>e<b" 

580 B5$ = "a2. b>c&c4d4e4g4e4. <a4. >e4e4. <g4 

. >e4" 

590 D6$="a8>aa<a8>aa<a8>aa<a8>aa<g8>gg<g 

8>gg<g8>gg<g8>gg<f8>f f <f 8>f f <f 8>f f " 

600 D6$=D6$+"<f8>f f <g8>gg<g8>gg<g8>gg<g8 

>99<" 

610 ' 

620 B6$ = "<b2. ga&a4g4e4g4e2a4bg&g4d4. e4. " 

630 ' 

640 B7$="<b4>c<b4a4eb4>c<b4a4>e<b4>c<b4a 

4>d&d4c4<b4>c4" 

650 ' 

660 B8$="b4>c<b4A4eb4>c<b4a4>e<b4>c<b4a4 

d&d4g4b4>d4<" 

670 " 

680 A6$="gg>g<ggg>g<ggg>g<ggg>g<g" :A6$=A 

S$+AS$+A6$+A6$ 

690 B9$="b2. &b>c&c2. r41 1 684q2v1 3d<gb>dg< 

b>dgbdgb>d<gb>dg<b>dgbdgb>d<gb>dg<b>dg" 

700 BS$="b2. &b>c&c2. r41 1 684q4vl3<d<gb>dg 

<b>dgbdgb>d<gb>dg<b>dgbdgb>d<gb>dg<b>dg 

710 BG$="b2. &b>c&c2. r41 1 6vl 0<d<gb>dg<b>d 

gbdgb>d<gb>dg<b>dgbdgb>d<gb>dg<b>dg" 

720 D7$="aa>aa<aa>aa<aa>aa<aa>aa<aa>aa<a 

a>aa<aa>aa<aa>aa<gg>gg<gg>gg<gg>gg<" 

730 D7$=D7$+"gg>gg<gg>gg<gg>gg<gg>gg<gg> 

aa" 

740 T4$=S0$+S0$+S0$+S0$ 

750 N7$="r4g4r4g4g8g8g8g8g8g8g8g8rl r2r4g 

gg8" 

760 ' 

770 POKE &HFA2C, 0:POKE &HFA3C. 35: POKE &H 

FA4C, 70: POKE &HFA6C, 55 

780 PLAY#2. "§63o5v15xa0$:". "863o5vl 5xa0$ 

:". "863o5vl3q8xb0$:". "863o4vl 3q8xc0$ ; ", " 

824vl4o3q6y36. 32xd0$:". "81 4vl 5o3q2xd0$: " 

, T0J, "tl66". "t 1 66". N0$ 

790 PLAY#2, A0$. A0$, B0 J. C0$, Dl $. Dl $, T1 $. " 

", "". Nl$ 

800 PLAY#2. ">v13xa1$:", ">vl3xal$:". "84vl 

lo6y34. 32xbl$:\ "84vl lo6y35. 32xbl$:",D2$ 

. D2$. T2$. "vl2o5xbl $:","". N2$ 

810 PLAY#2. A2$. A2$, B2$, B2$. D3$. D3$. T2$. B 

2$, "". N3$ 

820 PLAY#2. Al $, Al i. Bl $. Bl $. D2$. D2$. T2J. B 

1$. "".N2$ 

830 PLAY#2, A3$. A3J. B3$. B3$. D4$, D4$, T2$. B 

3$. "". N4$ 

840 PLAY#2. "84o6vl4y32. 32xa4$ ; ". "84o6vl4 

y33. 32xa4J:". "836o5vl 1xb4$: ", "836o5vl lxc 

1$;". D5$, D5$. T3$. "o5vl 2xa4J : ", "", N5$ 

850 PLAY#2. A4$, A4J. B4$. CIS. D5S. D5S. T3S. A 

4$. "". N6S 

860 PLAY#2. "814vl2o4xa5$:". "81 4vl 2o4xa5$ 

:". "836vl3o4xb5$:". "84vl 4o5xb5S : ". D6S. D6 

$. T2$, "o4vI2xb5$:", "". N2S 

870 PLAY#2, A5S. A5S. B6S. B6$. D6S. D6S. T2S. B 

6$. ". N2$ 

880 PLAY#2. A5S, A5S. B7S. B7S. D6S. D6S. T2S, B 

7$. "". N2$ 

890 PLAY#2. A5S, A5S, B8S. B8S. D6S. D6S. T2S, B 

8$. "". N2S 

900 PLAY#2. A6S. A6S. B9S. BSS. D7S. D7S. T4S. B 

G$. "". N7$ 

910 PLAY#2, "y32, 0". "y33. 0", "y34. 0". "y35. 

0":GOTO 780 
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1 10 _MUSIC(1. 0. 1. 1. 1. 1. 1) :CLEAR 

120 SOUND 7. 24:SOUND 6. 60:T$ = "T136" : R=0 

130 " MML DATA 

140 "**** A **** FM 0, I 

150 A0$ = "L16EFEDE2. R4L4EFG' 

160 A1S = "L16EFEDE2. R4C4<B8>C8D4" 

170 A2$ = "E4G8E8>DKL8EGEG" 



180 A3$ = "B2. A8A8&A2. . G4&G2E8F8G2&G8A4G4" 

190 A4$="L8>C2&C<AB>C&C2E4D4A1" 

200 A5$="G1B1" 

210 A6$="G1<" 

220 A7$ = "G2. . <V15816L8G#" 

230 W7$ = "G2. . <«V1084L8G#" 

240 A8$="AB>CE4DC<AL4B>CDG" 

250 A9$="L8EFEE-E<B>DC<A2&AB>CE" 

260 AA$="<FA>ED4EFAG<G>DGBA4D" 

270 AB$="E2&E<G>DC<BGBAE2" 

280 AC$="FEFAR8>E4D" 

290 ADS="<B>CDEFGAB4EE-EBAG#B>L4C<BAE" 

300 AE$="L8FGABR8>C4<AB>CDEF<A4B" 

310 AF$=">C<B>DC4<BAEG1" 

320 •***» B **** FM 2 

330 B0$ = "CKG1" 

340 B1$="A1E2F2" 

350 B2$="G1B2>D2" 

360 B3$ = "E1C2. . C4&C2<A8B8>C2*C8F4C4" 

370 B4$="L8F2&FDEF&F2B4B4F1" 

380 B5$="E1G1" 

390 B6$="E1" 

400 B7$ = "E2. .<L8E" 

410 B8S="F4A>C4<A4FL4GAB>D" 

420 B9$="L8<G#AG#GG#EG#4ECCE4G#A>C" 

430 BA$="<C4>C<A2>CD<DGB>D4<B4" 

440 BB$=">C2&C<GBAGEGCC#2" 

450 BC$ = "D4. F8R8A4A8" 

460 BD$="L8DEFGBD4G>E<B4B>G#EDEL4AEEC" 

470 BE$="<CF8G8R8F8F#4L8GAB>CD<F4F8" 

480 BFS="EDFEEGFCE1" 

490 '**** c **** FM 3, 4 

500 CS = "C>C<OC<" :C0$ = "L8"+C$+C$+C$+C$ 

510 C$="F>F<F>F<" :C1 $=CS+C$+C$+C$ 

520 CS="E>E<E>E<" :C2$=C$+C$+CS+CS 

530 C$="<A>A<A>A":CX$="F>F<F>F<":C3$=C$+ 

C$+C$+"<A>A<G8F4>F<F>F<"+CX$+CX$+CX$ 

540 CS="G>G<G>G<":CX$="C>C<C>C<":C4$=CJ+ 

C$+C$+C$+">"+CX$+CX$ 

550 C5$=CX$+CX$+CXS+CX$ 

560 C6$=CXJ+CX$ 

570 C7$=CX$ + "OC<CC#" 

580 CX$="D>D<D>D<" :CYS="<G>G<G>G" 

590 C8$=CX$+CX$+CYS+CY$ 

600 CXS="E>E<E>E<" :C9$=CX$+CX$+"<A>A<A>A 

<AG#GF#" 

610 CX$="F>F<F>F<":CY$="G>G<G>G<" 

620 CA$=CX$+CX$+CY*+CY$ 

630 CXS = "OC<OC<" :CYS = "C#>C#<C#>C#" 

640 CBS=">"+CX$+CX$+CX$+CYS 

650 CCS="<D>D<D>D<D>D<D>D<" 

660 CXS="E>E<E>E<" :CD$="G>G<G>G<G>G<F>F< 

" +CX$ +CX J + " <A>A<A>A<A>A<G>G<" 

670 CX$="G>G<G>G<" :CES="F>F<F>F<F>F<F#>F 

#<"+CX$+CX$ 

680 CXS="C>C<C>C<" :CF$=">"+CX$+CX$+CXS+C 

X$ 

690 ■**** D **** ')%' A 

700 DZ$="V10H16H16H16H16H16R16H16H16H16R 

16H16H16H16R16H16H16":D0$=DZ$+DZ$ 

7 1 DYS = " H 1 6R 1 6H 1 6H 1 6H 1 6R 1 6H 1 6H 1 6H 1 6R 1 6H 

16H16H16R16H16H16" 

720 D3 $ =DZS + "H 1 6H 1 6H 1 6H 1 6H 1 6R 1 6H 1 6H I 6H I 6 

R 1 6H 1 6H 1 6H 1 6H 1 6H 1 6H 1 6" +DYS+DYS 

730 D4 $ =DY$+ "H 1 6R 1 6H 1 6H 1 6H 1 6R 1 6H 1 6H 1 6H I 6 

R16H16H16H16R16H16R16"+DY$ 

740 D5$=DYS+DY$ 

750 D6$= " H 1 6R 1 6H 1 6H 1 6H 1 6R 1 6H 1 6H 1 6H 1 6H 1 6H 

16HI6H16R16H16H16" 

760 D7$="H16R16H16H16H16R16H16H1fiH16R16H 

16R16H16R16H16R16":DX$="H16R16H16H16H16R 

1 6H 1 6H 1 6H 1 6R 1 6H 1 6H 1 6H 1 6R 1 6H 1 6H 1 6 " 

770 D8$=DX$+DX$ 

780 D9$=DX$+"H16R16H16H16H16RI6H16H16H16 

H16R16R16R16R16H16H16" 

790 DA$=DX$+DX$ 

800 DB$=DX$+"H16R16H16H16H16R16H16H16H16 

H16H16R16HV6H16H16R16" 

810 DC$=DX$ 

820 DD$=DX$+DX$+DX$ 

830 DE$=DX$+DX$ 

840 DF$=DXS+"H16R16H16HI6H16R16H16H16H16 

H16H16H16H16H16H16H16" 

850 '**** E **** PSG 1 

860 Z0S="G2&G8L8EFG&G2AAG" : E0$=Z0$+"G" 

870 Z1$="C2&C8L8<AB>C&C2EEC":E1S=Z1S+"C" 

880 Z2$ = "<B4>E<B>GKB>E<B>":E2$=Z2$ + "E" 

890 Z3$="G2. EE&E2. . G4EFGGEFGGEFGGEF" :E3$ 

=Z3$+"G" 
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900 Z4 J = " > L8C<AB>CC<AB>CC<AB>CC<AB>CC<BG 

EEC<B":E4J=Z4J+"G" 

910 Z5J="EEGGBB>CCE<BGEEC<B":E5J=Z5J+"G" 

920 Z6J="EG>CEEEE>":E6J=Z6J+"<E>" 

930 Z7$="EGB>CECD":E7$=Z7$+"E" 

940 Z8J="FFFFAAADDGB>DR8<BB":E8J=Z8J+"B" 

950 Z9$="B>C<BB-BG#4EEECCCDE" : E9$=Z9$+"G 

960 ZAJ="AEC<AAB>CEDGB>DD<BB" : EAJ=ZAJ+"G 

970 ZBJ=">E<G>GEE<G>GEE<G>GEE<G>G" :EBJ=Z 

B$+"E" 

980 ZCJ="<AB>CEEDC<":ECJ=ZCJ+"A" 

990 ZDJ="L4GAB>DG2E2. DC<L8G" :EDJ=ZDJ+"G" 

1000 ZEJ="AEFGR8A4>CDEFGR8<B4>":EEJ=ZEJ+ 

"G" 

1010 ZF$= ">EDFEEDFEEDFEEC<B" : EFJ=ZFJ+"G" 

1020 "**** F ***» PSG 2(1 11-) 

1030 F0$="R8"+Z0$ 

1040 F1J="G"+Z1J 

1050 F2J="C"+Z2J 

1060 F3J="E"+Z3J 

1070 F4$="G"+Z4$ 

1080 F5J="G"+Z5J 

1090 F6J="G"+Z6J 

1100 F7$="G"+Z7$ 

1110 F8J="E"+Z8J 

1120 F9J="B"+Z9J 

1130 FAJ="G"+ZAJ 

1140 FBJ="G"+ZBJ 

1150 FCJ="E"+ZCJ 

1 160 FDJ="A"+ZDJ 

1170 FEJ="G"+ZEJ 

1180 FFJ="G"+ZFJ 

1 190 '**** G **** H7.' 

1 200 GZJ="R1 6R1 6R1 6R1 6G1 6R1 6R1 6R1 6R1 6R1 6 

R16R16G16R16R16R16":G0J=GZJ+GZJ 

1210 GYJ="R16R16R16R16G16R16R16R16R16R16 

R16R16G16R16R16R16" 

1220 G3J=GZJ+"R16R16R16RI6G16R16R16R16G1 

6R1 6G1 6G1 6G1 6G1 6G1 6R1 6"+GY$+GY$ 

1 230 G4 J =GY J + " R 1 6R 1 6R 1 6R 1 6G 1 6R 1 6R 1 6R 1 6R 1 

6R1 6R1 6R1 6G1 6R1 6G1 6R1 6"+GYJ 

1240 G5J=GYJ+GYJ 

1 250 G6J="R1 6R1 6R1 6R1 6G1 6R1 6R1 6R1 6G1 6G1 6 

G16G16R16R16G16G16" 

1 260 G7J="R1 6R1 6R1 6R1 6G1 6R1 6R1 6R1 6R1 6R1 6 

G16R16R16R16G16R16":GXJ="R16R16R16R16G16 

R16R16R16R16R16R16R16G16R16R16R16" 

1270 G8J=GXJ+GXJ 

1 280 G9$=GX$ + " R 1 6R 1 6R I 6R 1 6G 1 6R 1 6R 1 6R 1 6R 1 

6R16R16R16R16R16R16R16" 

1290 GAJ=GXJ+GXJ 

1300 GBJ=GXJ+"R16R16R16R16G16R16R16R16G1 

6G1 6R1 6R1 6G1 6G1 6R1 6R1 6" 

1310 GCJ=GXJ 

1320 GDJ=GXJ+GXJ+"R16R16R16R16G16R16R16R 

16R16R16R16R16G16R16G16G16" 

1330 GEJ=GXJ+GXJ 

1340 GF$=GX$+"R16R16R16R16G16R16R16R16G1 

6G1 6G1 6G1 6G1 6G1 6G1 6G1 6" 

1350 " PLAY 

1360 PLAY#2. T$. T$. T$. T$. T$. TJ, T$, TJ. ft 

1370 PLAY#2, "05V13816", "07V15S14". "O5V10 

S3". "03V1 1624". "O3V6§0". "", "05V9", "05V7" 

, "SMI 500" 

1380 PLAY #2. A0J. A0J. B0J.C0J.C0J. D0J. E0J 

. F0J. G0J 

1390 PLAY #2. A1 J, A1J. B1S.C1 J, CU. D0J, El J 

,F1$. G0$ 

1400 PLAY #2, A2J, A2S. B2J.C2J.C2J, D0J. E2J 

.F2J. G0J 

1410 PLAY #2. A3J. A3J, B3J, C3J, C3J, D3J. E3J 

. F3J, G3J 

1420 PLAY #2, A4J, A4J, B4J.C4S.C4J, D4J. E4J 

. F4J.G4J 

1430 PLAY #2. A5J, A5$. B5J. C5J, C5J, D5J. E5J 

, F5$.G5$ 

1440 IF R=1 THEN 1460 

1450 PLAY #2. A6J. A6J, B6J.C6J, C6J, D6J, E6J 

, F6J,G6J:R=1 :GOTO 1380 

1460 POKE &HFA3C. 48: PLAY #2. A7 J. W7J. B7J, 

C7J.C7J, D7J. E7$.F7$.G7$ 

1470 PLAY #2. A8J, A8J, B8J.C8J.C8J. D8J, E8J 

, F8$, G8$ 

1480 PLAY #2. A9J. A9J. B9J, C9J.C9J. D9J, E9J 

, F9J, G9J 

1490 PLAY #2. AA$, AA$, BAJ, CAJ, CA$, DAS, EAJ 

. FA$. GAJ 



1500 PLAY #2. ABJ. ABJ. BBJ.CBJ.CBJ, DBJ. EBJ 

. FB$.GB$ 

1510 PLAY #2, ACJ. ACJ. BCJ.CCJ.CCJ, DCJ, ECJ 

. FCJ. GCJ 

1520 PLAY #2. AD$. ADS. BDJ. CDJ. CDJ, DDJ. EDJ 

. FDS.GDS 

1530 PLAY #2, AES. AES. BES.CES.CES, DES. EES 

, FES. GES 

1540 PLAY #2, AFS. AFS, BFS.CFS. CFS. DFS. EFS 

. FFS, GFS 

1550 R=0:POKE &HFA3C. 0:GOTO 1370 

• * U V i- )\j SP P^ I 




CHATTER 



SFG--FMPAC 



f iH ? xay **tH*I- good r l. 
Chatter (Simple version) 



main : §3 



10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

20 COLOR 15. 0. 0:SCREEN 0:WIDTH 40:COLOR = 
(15.0. 0.0) 

21 LOCATE11. 8:PRINT"— CHATTER 

22 LOCATE 5. 1 1 :PRINT"Music & Programed 
by T. Hira 

23 FOR TI=0 TO 1000: NEXT 

24 • 

100 CLEAR 4000 

110 _MUSIC(1.0, 1. 1, 1, 1. 1, 1) • 

120 TES = "T160L8":PLAY#2, TES. TES, TES. TES, 

TES. TES, "TI60". TES 

130 SOUND6. 4:SOUND7, 69:PDS="r4c4r4c4" 

140 .TRANSPOSE (50) 'll'/i') 100 

150 ' 

160 P0S="o6r8e<ae<aer8" 
170 P1$="o6r8c#<r8c#8<r8r8" 
180 P2$="o5r8r8br8<br8" 
190 P3S="r8<b>c#er8b>c#e" 
200 P4$="o6r8ccr8cccc" 
210 P5$="o5r8aar8aaaa" 
220 P6$="o5r8ggr8gggg" 
230 P7$="o6r8ddr8dddd" 
240 P8$="o5r8bbr8bbbb" 
250 P9S="o5r8ddr8dddd" 
260 QlS="o5r8ccr8cccc" 
270 Q2S="o6r8ggr8gggg" 
280 B0$="o2fr8>f<fr8>fff" 
290 B1S="ggr8gr8gab" 
300 B2$="o2gr8>g<gr8>ggg" 

B3$="o3cr8>c<cr8>ccc" 

B4$= "o2cCl 6C1 6>c<cr8>ccc" 

B5$="o2ar8r8aaar8r8" 

B6S="ar8r8a16al6aar8r8" 

324 HlS="o8r8fc<fr8>cfr8" 

325 H2S="r8gd<gr8>dgr8" 

326 H3$="c<bger8deg>" 

330 H5$="b!h8h8h8h8b!h8b!h8b!h8b!h8" 
340 • 

350 PLAY#2. "§33q3vl1". "S3q3v13". "63q3v12 
", "83q2v12". "63q6o5v13". "83q6o5v3". "6a15 
v8". "o4s0m1500 
360 ' 

370 PLAY #2. "r8o2ar4aaar16". "r8o6r8e8<ae 
8<ae", "r8o6r8c#8<rc#8<r8r", "r8o5r8br<br" 



310 
320 
321 
322 



380 PLAY #2, Bl$. P3$. "". "". "", "". "" 

390 PLAY #2, "rlrlrl" 

400 FOR Z=1 TO 7:COLOR= (15. Z, Z. Z) :FOR TI 

=0 TO 50: NEXT: NEXT 

410 " 

420 " 

430 • 

440 PLAY #2. "v12". P0$. PI J. P2$. "". "r", "" 

450 PLAY #2. "". P3$. "". "". "". "", "r8r8r8r8 

r8r8r8h! 16h!16" 

460 PLAY" #2, "o2ar4aaar16". P0$, Pl$, P2$, "r 

". "". "b!h8h8h8h8h8h8h8h8". PD$ 

470 PLAY #2, Bl$, P3$. "". "". "". "". "b!h8h8h 

8h8b!h8h8h8h8". PD$ 

480 PLAY #2. "". P0$. P1$, P2$. "", "". "b!h8h8 

h8h8b!h8h8h8", PD$ 

490 PLAY #2. Bl$, P3$. "r8o6r8e8<ae8<a8r". 



"r8o5r8br<br". "r", "r21 1 6o7af #dc#<ab>c#f # 

". "b!h8h8h8h8b!h8blh8b1h8b!h8", PD$ 

500 PLAY #2, B5$. P0$, P1$. P2$. "816V4o6e2a2 

", "v14o6e1", "b!h8h8h8h8blh8h8h8", PD$ 

510 PLAY #2, B1$. P3$. ""."". "f#2d2", "v818d 

er8f#4. d". "b ! h8h8h8h8b! h8h8h8h8". PD$ 

520 PLAY #2, B6J. P0$. P1$, P2$, "<a2>e2". "c# 

r8c#e8&e8&e8&e8", " b ! h8h8h8h ! 1 6h ! 1 6b ! h8h8 

h8". PD$ 

530 PLAY #2, B1 $, P3$. " ", " ". "f #2d2". "<b>c# 

<b>d4. c#<b". "blh8h8h8h8blh8h8h8h8". PDJ 

540 PLAY #2, B6$. P0$. P1$. P2$. "c#2e2". ">c# 

r8c#e8&e8&e8&e8", "b! h8h8h8h 1 1 6hl 1 6b I h8h8 

h8". PD$ 

550 PLAY #2, B1$. P3$. ""."". "<b2>d2". "<b>c 

#<b>d4. c#<b", "b!h8h8h8h8b!h8h8h8h8". PD$ 

560 PLAY #2, B6$, P0$, PI $, P2$, "c#l ", "ba8&a 

8&a8&a8&a8&a8&a8". "b I h8h8h8h 1 1 6h ! 1 6b I h8h 

8h8". PDJ 

570 ZA=ZA+1:IF ZA=2 THEN 610 ELSE IF ZA= 

4 THEN ZA=0:PLAY #2. "". "". "". "". "63vl0". 

"e3v10":ELSE GOTO 590 

580 ' 

590 PLAY #2. "gr8r8g16g16ggr8g". "". "r". "r 
". "§3o71 1 6v4ef#ef #ef#ef#ef#edc»<b>c#dl8" 
. "", "b!h8h8h8h8b!h8h8h8h8". PD$ 
600 GOTO 500 

610 PLAY #2, "vl4f#fr8g#g#eevl I", "vl4o5r 
8ddr8eeg#g#vl2", "v14o4r8aar8bb>eevl 1 ", "v 
14o4r8f#f#r8g#g#bbv1 1 ". "§50v9o8", "814q8o 
6v1218". "b!h8h8h8h8b!h8blh8blh8blh8". PD$ 

620 ' 

630 PLAY #2. B0$. P4$. P5$. P6$. H 1 $. "05 {b>c 

} 16&C16&C&C&C&C&C&C&C". "b!h8h8h8h8b!h8b! 

h8blh8b!h8". PD$ 

640 PLAY #2. B0$, P4$, P5$. P6$, HIS. "rl ". H5 

J. PDJ 

650 PLAY #2. B2J, P7J. P8J. P5J. H2J. "dl ". H5 

J, PDJ 

660 PLAY #2, B2J. P7J. P8J, P5J, H2J, "r2r4f & 

f", H5J. PDJ 

670 PLAY #2, B3J. P6J. P9*. 01 J, H3J, " {d#e} 1 

6&el6&e&e&e&eie&e4e". H5J. PDJ 

680 PLAY #2. B3J, P6J, P9J. Q1 J. H3J, "r2r4d& 

d". H5J. PDJ 

690 PLAY #2. B3J, P6J. P9J. Ql J, "", "cl ". H5J 

. PDJ 

700 PLAY #2, B3J, P6J. P9J.Q1 J, "". "r1".H5J 

. PDJ 

710 " 

720 ZD=ZD+1 :IF ZD=2 THEN ZD=0:GOTO 830 

730 PLAY #2, B0 J. P4 J. P5J, P6 J. H 1 J, "81 607v 

10c&c&c*c&c&c&c&c", "b!h8h8h8h8b!h8b!h8b! 

h8b!h8". PDJ 

740 PLAY #2. B0J. P4J, P5J. P6J. HI J. "rl".H5 

J. PDJ 

750 PLAY #2. B2J, P7J, P8J. P5J. H2J. "dl ". H5 

J. PDJ 

760 PLAY #2. B2J. P7J, P8J. P5J. H2J. "r2r4f& 

f". H5J, PDJ 

770 PLAY #2, B3J. Q2J. P7J. P4J. H3J, "el ". H5 

J. PDJ 

780 PLAY #2. B3J. Q2J, P7J, P4J. H3J, "rl ". H5 

J. PDJ 

790 PLAY #2. B3J, Q2J. P7J. P4J, H3J. ">C1 ". H 

5J. PDJ 

800 PLAY #2. B4J. Q2J. P7J. P8J, "ccr8cr8r8< 

c". "814". "b!h8h!16h!16h!8h!8sb!h!8sb!h!8 

sb!h!8sb!h!8". PDJ 

810 GOTO 630 

820 " 

830 PLAY #2, B0J. P4J. P5J. P6J. HI J. "". H5J. 

PDJ 

840 PLAY #2, B0J, P4J, P5J. P6J. HI J. "". H5J. 

PDJ 

850 PLAY #2. B2J. P7J. P8J. P5J. H2J. "". H5J. 

PDJ 

860 PLAY #2, B2J. P7J. P8J. P5J, H2J, "", H5J. 

PDJ 

870 ' 

880 ' 

890 ZC=ZC+1:IF ZC=4 THEN ZC=0:GOTO 920 

900 PLAY #2. B3J.Q2J. P7J. P4J. "o8c<bger8d 

eg>", "". H5J. PDJ 

910 GOTO 890 

920 PLAY #2. B4J, Q2J, P7J. P8J. "ccr8cr8r8< 

c". "". "b!h8h!16h!16h!8hl8sb!h!8sb!h!8sb! 

h!8sb!h!8".PDJ 

930 GOTO 500 
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